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Basic DVORAK Keyboard 
Applesoft Compression 

Better BASIC Hex Loader 

Hi Res Graphic Printouts 

6809/68000 Comparison 

Flight Simulator II 



CD 



It all adds up... 



A 

ATARI 



HOME COMPUTERS 



AXIOM 



PRINTERS 




600X1. $149 

800XL.. $889 

WHILE SUPPLY LASTS 



850 Interface $159.00 

KHO Recorder $71.99 

HMO: Color Printer. $219.00 

3088 Dot Mafcrt* Printer 1299.00 

y&m tetter Q*mUty Prlnter„$2e9.Q0 
1080 Direct Connect Modem.. . .499.99 

1050 Disk Drive $349.00 

1064 Memory Module $125.00 

Touch Tablet/Software $64.99 

Light Pen/Software $72.99 

CX22 Track Ball $39.99 

7097 Atari Logo JS4,9a 

4018 root (Home) $37.98 

4QS File* (RdUC-J. $99.99 

8038 Atari Pilot. . .$77 99 

5049 VlBlCalc $149.99 

483 Communicator n.. ..'.'....:... .$119.99 



1200XL. 



..CALL 



14S0XL... CALL 

CXSoS Paddles. $11.99 

CT40: Joystick....... $7.99 

40B Star 1 Haiders.... $31.99 

4082 Pac iMaii $31.99 

4025 Defender $31.99 

8026 Dig Dug $31.99 

8031 Donkey Kong $35.99 

8034 Pole Position $37.99 

8040 Donkey Kong Jr $33.99 

8043 Ms Pacman $37.89 

8Q4*iJoust.. $37.99 

,884* PBilgo..........L.. $33.99 

8082 Moon Patrol ....$33.99 

4003 Assembler ................$44.99 

8126 Microsoft Basic r or n $64.99 



DISK DRIVES FOR ATARI 

PXB.COM SANA 

AT 88-S1 $279.00 1000 $299.00 

AT 88-a PB $299.CC IRAK 

INDUS AT-D2 $389.00 

QT Drive $37900 AT-B4 $889,00 

MEMORY BOARDS 

ATARI APPLE/FRANKLIN 

Axlon 32K $59.99 Axlon 128K $299.00 

Axlon 48K $99.99 Axlon 320K $849.00 

Axlon 128K $299.00 

ALIBH VOICR BOX 

Alan $119 00 Apple $149.00 



DISKETTES 

MAXELL 

5V<" MD-1 $24.99 



5V4' 
8" 
8" 



' MD-2.. 

FD-1 

FD-2 



,&)*" esant... 

<S4V* DSBDt- 



tWut Life.. 
Value lift.. 



SW Dish Head Cleaner..: 



ELEPHANT 

5 'A" SS/SD $18.49 

..$34.99 5Vi" 3S/DD $21.99 

..$39.99 5Vi" DS/DD $26.99 

..$49.99 DISK HOLDERS 

INNOVATIVE CONCEPTS 

.$88.99 Pllp-n-FUe 10 $3.99 

.$29.99 Flip-n-Flle SO Si? 99 

Flip II File 90 mljck- $24.99 

$14.99 Php-n-FBe (400.800 BOM) $17 99 



CONTROLLERS & JOYSTICKS 



WICO 

Joystick $21.99 

3-way Joystick &£2.£9 

PSwer- Sup;.... ..$21.99 

BOSS Jcgattek.. $27.99 

AaARBTKTTra* Ban...- -$34.99 

AppS» Irak Ball $34:99 

Arple Analo? $37 09 

lioala 

Atari (ROM) $79.99 IBM $99.99 

C-64 (ROM) $79.99 Apple/Franklin $85.99 



KRAFT 

Joystick $41.99 

Atari Single Iiier $12.99 

Atari Switch Hitter $1S 99 

Apple Padoaes-. _ $34.99 

IBM Paddles : _ $34 99 

IBM Joystick..... $46.99 



AT-100 Atari Interface Printer$239.00 

G/P-100 Parallel Interface $199.00 

GP-5S0 Atari Bidirectional $319.00 

GP-700 Atari Color Printer.. ..$489.00 
GP-550 Parallel Printer $269.00 

BMC 

401 Letter Quality $589.00 

BX-80 Dot Matrix $269.00 

C.IT0H 

Gorilla Banana $209.00 

Prowriter 8510P $379.00 

Prowrlter 1550F $899.00 

A10 (18 cps) $569.00 

Hot Dot Matrix CALL 

F10-40 $999.00 

F10-55 $1349.00 

COMREX 

ComWriter II Letter Quality. .$499.00 

DIABLO 

620 Letter Quality $949.00 

630 Letter Quality $1749.00 

DAISYWRITER 

2000 $999.00 

Tractor Feed $109 00 

EPSON 

RX-80. RX-80FT, RX-100 CALL 

FX-80. FX-100 CALL 

LQ 1500 CALL 

IDS 

Prism 80. ..For Configuration CALL 

Prism 32.. .For Configuration CALL 

JUKI 
6100 $499.00 



MANNESMAN TALLT 

160L ..$589.00 

180L $799.00 

Spirit 80 ..".'.'. $309.00 

NEC 

8023 Dot Matrix $389 00 



8025 Dot Matrix $669 00 

201O/1S/30 $749 00 

35100.5/30 $1369.00 

7710/15/30 $1799.00 

OKIDATA 

82, 83, 84, 92, 93, 2350, 2410. ..CALL 

OLTMPIA 

Compact 2 $479.00 

Compact RO $509.00 

ESW 3000 $1449 00 

SMITH CORONA 

TP-1000 $449 00 

Tractor Feed $119.00 

SILVER REED 

500 Letter Quality $449.00 

550 Letter Quality $549.00 

770 Letter Quality $899.00 

STAR 

Gemini 10X $299.00 

Gemini 15X $399.00 

Serial Board $75.00 

Radix 10 $599.00 

Radix 15 $699.00 

TOSHIBA 

1340 $869.00 

13S1 $1699.00 

TRANSTAR 

120P $469.00 

130P $649.00 

315 Color $489.00 

MODEMS 

ANCHOR NOVATION 

Volksmodem $59.99 J-Cat $99 99 

Mark IL Serial $79.99 Cat $139.00 

Mark VII (Auto AnsAuto Dlal)$99.99 Smart Cat 103 ..$179,00 

Mark XII (1200 Baud) $299.99 Smart Cat 103/212 .....$399.00 



Marlt TBS-80 .$99.99 

9 Volt Power Supply,.... $9.99 

HATES 

Smartmodem 300 $209.00 

Smartmodem 1200 $499.00 

Smartmodem 1200B $449.00 

Mioromodem He $269.00 

Micromodem 100 $299.00 

Smart Com II $89.99 

CThronagraph $189.00 

MONITORS 

AMDEK 

300 Green $149.00 

300 Amber $159.00 

310 Amber $169 .00 

Color 1 $279.00 

Color 1 Plus $299.00 

Color 2 Plus , $419.00 

; Color 3... ........,..$349.00 

Color 4T IBM ....... .,...^.$699.00 

•' BMC . 

1201 (12" Sreen).. .......$88.99 

1201 Plus (12" Green Hi-Res). ..$98. 99 

9191 Plus $249.00 

OORILLA 

12" Green $88.99 

13" Amber $95.99 

NEC 
■SB 1280 Green .$109.00 

. JB. 1201 Green :....,....: $149.99 

JB. 12QB: Amber.... $169.99 

JsB 1218 Color..... ...$259.00 



AutoCat :; $219.0© 

212 AutoCat ;...$649.00 

Apple Cat II ^249 00 

212 Apple Cat $449.00 

Apple Cat 212 Upgrade $259 00 

PC Cat Access 1 2 3 $399.00 

ZENITH 

ZT-1 $339.00 

ZT-10 $309.00, 

ZT-11 ..,..,$369.00 



SAKATA 

SC-100 Color $269.00 

SG-1000 Green $129.00 

SA-1000 Amber $139.00 

TAXAN 

210 Color RGB $299 00 

400 Med-Bes RGB $319.00 

415 HS-Res RGB .$439:00 

420 Hi-P.es RGB (IBM) ,$489.00 

100 12" Green..... ..,.....$128.00 

105 12" Amber. ..,.,$135.00 

USI 

Pi 1, 9" Green 

Pi 2, 12" Green 

Pi 3, 12" Amber 

Pi 4, 9" Amber 

1400 Color 

QVADRAM 
Quadchrome 8400 Color... 

ZEHTCTH 

ZVM182 Amber.. 



....$99.99 
..$119.99 
..$129.99 
..$119.99 
..$269.99 

..$519.00 
..$99.99 



JC 1216 RGB $429 00 ZVM123 Green $89.99 

JC 1460 Color $359.00 ZVM124 IBM-Amber $149.00 

ZVM131 Color $309.00 

ZVM133 RGB $429.00 

ZVM135 RGB/Composite $469.00 



PRINCETON GRAPHICS 

MAX-12 Amber $199.00 

HX-12 RGB $539.00 

3F.T-2 RGB $649.00 




canacfa 

Ontario/Quebec 800-268-3974 
Other Provinces800-268-4559 

In Toronto call 
(416)828-0866, Dept. 125 
Order Status Number: 828-0866 
2303 Dunwln Drive, Unit 3B 
Misslssauga, Ontario, Canada. ISlulll ■■-'■.■ 

Ho its* no deposit or. C O D. orders and io wilting period ftr certified checks or morceyoro^s? Ad#3% (talniamni $8^ 
Larger shipments may require additional charges. NV and PA residents add sales tax. All items subject to availability and price change. Call today 
our catalog. 



800-648-3311 

In NV call (702)588-5654, Dept. 125 
.. Order Status Number: 588-5654 
P.O.Box 6689 
Statellne. BT 89449 



east 
800-233-8950 

In PA call (717)327-9575, Dept. 125 

Order Status Number: 327-9576 

Gu stomer Service N umber: 327-145Q 

477 E. 3rd St., WUliamsport, PA 17TO1 



the best prices 

IBM 



APPLE/FRANKLIH 
DISK DRIVES 

MICHO-SCI 

A2 $319.00 

A40 $299,00 

A70 $319.00 

G3 Controller $79.99 

C47 Controller $89.99 

RANA 

Elite 1 $279.00 

Elite 2 $389.00 

Elite 3 $569.00 

APPLE II« STABTBH PACK 
64K Apple He, Disk; Drive & Controller, 
80 Column Card. Monitor II & DOS 3.3 

COMPLETE CALL 

Call on all other Apple Models 



MBC SSO CALL 

MBC S8S CALL 

MBC 5S8-a CALL 

MBC 110O $1499.00 

MBC 11S0 $1899.00 

MBC 1200 $1849.00 

MBC 1250 $2099.00 

PR 5500 Printer $599 00 



I^I H EWLETT PACK ARD hp 



FRANKLIN 




ACE 1000 Color Computer CALL 

ACE PBO PLUS System CALL 

ACE 1200 Office Mgmt. System. CALL 
ACE PORTABLES CALL 



® SANYO 





HP 71B $419.99 

41CV $189.99 

41CX $249.99 

SHARP 



11C $62.99 

12C .......$92.99 

HP 15C ,.$9S;99' 

hp iac .....:..., .tats.m 

HP 7S0 $879.99 

HPIL Module $98.99 

HPIL Cassette or Printer $359.99 

Card Reader $143.99 

Extended Function Module $63.99 

Time Module $63.99 




mem 



PC-1S00A $168.99 

PC-13S0A $88.99 

CE-125 PrmtetfCassette $128.99 

CE-150 Color Prtntei)Cassette.-$171:99 

CE-IoS 8K RAM.... ._.. .$93.99 

CB-161 16K BAM... : ....Xj,la34i89 

^commodere? 




NEC 

PC-8221A Thermal Printer $149.99 

EC-8281A Data Keoordei $90 59 

PC-820I-O6 8K RAM Cnips $106.00 

PC-8306A 32K RAM CarttfdgB$3S9.'QO 



8X-84Portable. 



itmm 



CBM 84 $199 

C1541 Disk Drive $249.00 



$69.99 
.$129.00 

.$.818.00 ... 
$299 00 
$289.00' 
$4.99 
...«1.99 
$99 99 
..$89.99 



CBM 8032 (899 

CBM 8096 $869.00 

CBM 9000 $999.00 

B128-80 $769.00 

8032 to 9000 Upgrade $499.00 

20S1' LP His* Drive $299.00 

mm Disk Drive..... $949.00 

8250 Disk Drive $1199.00 

4023 Printer $37*00 

?023 Printer $509 00 

6400 Printer .$1399.00 

Z-RAM $499.00 

Silicon Office $699.00 

The Manager $199.00 

SoftROM $125.00 Calo Result 64 

TMsfCale $IS&.00 Calc Result Easy 

PBOPWSXOBTAI. S»mEAJIS eotfewrtter 64 

Word Pro 2 Bins..- ."..$lB9i»'.MCS SOT Color mater.— . 

Word Pro 3 Plus .-..$389.00 M"3 UOi Daisy Printer..-.. 

Word Pro 4* Pfcs/3I«(ttaeB(fli...$a7».0O Magic Voice Speeon Module,. 

InfoPro $179.00 Desk Organizer Lock 

Administrator $399 00 Vidtex Telecommunications. 

Power $79.99 MSD 

SD1 Disk Drive $349.00 

SDS Disk Drive $599.00 



C1530 Datasette 

C1520 Color Printer/Plotter 

M-801 Dot Matrix Printer,.. 

CK2& Dot Matrtx/SertaJ...,.- 

C1708 Color Monitor i t 

C1311 Jaysack.....,.- ..'..: 

C1312 Paddles _ 

CMOO VIC Modem 

C1650 Auto Mdoem 

Logo 64 $49.99 

Pilot 64 $39.99 

Word Pro 64 Plus $59.99 

....$65.99 
..$39.99 
...$79.99 
$499 00 
$45900 
$54 99 

..?:$49:3S" 

..$34.95 



MBC PKIHTJERS 

NEC 2050 $899.00 

NEC 3550 $1669.00 

PBB.COM/XAVSOar 
DISK DRIVES 

5V," 320K Floppy $219.00 

5 Meg Hard w/Controller $1049.00 

10 Meg Hard w/Controller...$1349.00 
20 Meg Hard w/Controller...$1899.00 

VISICOB.P 

ViSiCalc IV $159.00 

VislWord + , $249.00 

Vlsi-on Application. Manager.. .$79. 99 

Visl-on Calo $269.00 

Visi-on Graph $179.00 

Vision Word $249.99 

Optical Mouse $189 99 

AST RESEARCH 

Six Pak Plus from. ..$279. 00 

Combo Plus II. from.. .$279.00 

Mega Plus from.. .$309 .00 

DO Plus..... ,...:.from... $139.00 

QUADBAM 

Quadllnk $479.00 

QuadDoard as low as. ..$289. 00 

Quad 512 Plus as low as. ..$249. 00 

Quadcolor as low as. ..$219. 00 

Chronograph $89.99 

Parallel Interface Board $89.99 

64K RAM Chips Kit $59.99 



MICROPRO 

WordStar Professional Pack. .$389. 00 

InfoStar $299 00 

SpellStar $159.00 

CalcStar $99.99 

MICROSTUF 

Crosstalk $105.00 

MICROSOFT 

MuItlPlan $159.00 

ASKTOV-TATB 

dBASE II $339.00 

dBASE III $449.00 

Friday! $185.00 

IUS 

EasyWriter II $249.00 

EasySpeller $119 00 

Easy Filer .$229.00 

COHTHTBBTAX SOPTWABX 

1st Class Mall/Form Letter $79.99 

Home Awoaatant Plus. .$88.99 

LOTTO 

Symphony $549.00 

1-2-3 $339.00 

PHOFESSIONAL SOFTWARE 

PC Plus/The Boss $329.00 

SYNAPSE 
File Manager...... ......$89,99 




'MiWM 



data 
systems 

PC COMPAT] 16 BIT BTSTKWm 

Z-150 PC Z-160 PC 

Call for price and configurations 
SOFTWARE 



tdkM- 



fej&£ga&r 
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Electronic .Arts 

One on One 

Music Construction 

Pintail Construotidn 

Cut ft Paste- 
Hard Hat Mack 
InfoCom 

Witness 

Infidel 

Deadline 
.,. . PlaaeftfaU -,•;•.,,„. . 

Enchanter 

ZorkJ..2 3 ea 

Suspended 

Sorcerer 

Joust 

Moon Patrol 
Ms. PacMan 
PacMan 
Donkey Kong 
Pole Position 
Splniiakar 
Aerobics 
7rd.n& 

Advene ure Crsature 
A£ge£ji Vo>ago 
Snooper Troops -.2 ea ■ 
Traction Fever 
Alphabet 2oo 
In Search of.. 
Face maker 
Kinder Comp 

Zj-j :.j.I-cv':. 
Code Wrt&er 
\ VislCorp 
VislCaic 
VialCalc Advanced 

pfs-" 



Graph 
Report 
File 

Solutions:* as low as 
"Call on Titles 



1.29 91) 


$29 89 


(28 99 


(2» 89 


(a3 9<) 


$29 99 


$29 93 


$28 99 


' $29.89 


$29 9« 


(29 99 


(2b 98 


(39 9* 


$39 98 


(3&9B 


( «> 9° 


$27 99 


$27.99 


$27.99 


$27 99 


(29.99 


$29 99 


S29 99 


$29 99 


(29.99 


$29 99 


$29 99 


$29 99 


$29.99 


$29 99 


$29.99 


$29 99 


*»l.i 


_ ..$29,88 


$..• J- 


(id .O 


(29 90 


$29 SB 


$29 9» 


(29 99 


(27 99 


$2199 


$27. HB 


(27.99 


(2989 


$29.99 


(2<»99 


(2898 


(39 99 


$39 <*i 


$29 99 


(S9.88 


(35.99 


HA 




t:t ■■•* 


$35 99 


n/a 


$2899 


$28 99 


$35.99 


N/A 


$28 99 


$28 99 


$35 99 


N/A 


$2899 


$28.99 


$35.99 


N/A 


$28 99 


(28.99 


$35 99 


N/A 


$28.99 


$28.99 


♦28 99 


$28.98 


$28.99 


S2B89 


$24.98 


(24 89 


$24 99 


$24.89 


$2*99 


(24 99 


(24 99 


•24.98 


(?4 99 


$34 99 


(24 89 


. (24.98 


$29 S<> 


(28 39 


(23 94 


(38.9D 


$22 99 


$22.99 


$22 99 


(22 99 


$22 99 


$2299 


$22.99 


$22.99 


$24.99 


$2499 


$2499 


$24.99 


$22.99 


$22 99 


$22.99 


$22.99 


$17 99 


$17 99 


$17 99 


$17 99 


$79.99 


(79.99 


(175 98 


$158.98 


'$159.99 


$14999 


$U>9 9S> 


(158.99 


N'A 


N'A 


VIA 


(389 98 


N/A 


N/A 


$89 99 
$89 99 


$89 99 
$7999 


N/A 


N/A 


$79.99 


$79.99 


N/A 


N/A 


$89.99 


$79 99 


N/A 


N/A 


$16 99 


$16 99 




VISA' 



MasterCard 



canada 

Ontario/Quebec 800-268-3974 
Other Provinces800-268-4559 

In Toronto call 

(416)828-0866, Dept. 125 

Order Status Number: 828-0866 

3505 Dunwtn. Drive, U-nit 5B 

Missiasauga, Sntai!toSfSaatasd& kKMXL 
CAJSTADIAU: OBBBaSt All, prices- are aubiect to shipping, tax and currency fluctuations. Call for exact pricing )n Canada. INTEKHATIOSAL ORDERS: AM 

orders placed' with U'.S offices for delivery outside the Continental trnitea States must tie pre-paid By fieftiftecV ehetfk only.- ■iHCfertfe "3% (mfnfrfrairr $S) 
shipping and handling. EDUCATIONAL DISCOUNTS: Additional discounts are available to qualified Educational Institutions. APO & FPO: Add 3% (minimum 
$5) shipping and handling. 



i west 

800-648-3311 

In HY call (702)588-5654, Dept. 125 
Order Status Number: 588-5654 
P.O.Box 6689 . - •■ 

StaJeltae, NV 89449- 



east 
800-233-8950 

In PA call (717)327-9575, Dept. 125 
Order Status Number: 327-9576 
Customer Service number-. 337-1450 
477 E 3rd St., WOiamsport, PA 17701 
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This Month in 
Micro 



This month we have 10 complete, useful, exciting 
programs for you on a diverse group of topics. The 
longer ones are available on MicroDisk as well to 
save you time and effort. 



Featured This Month 

DVORAK Keyboard — Try out a new keyboard 
arrangement that can increase your typing speed 
dramatically. The keyboard now commonly used on 
computers was deliberately designed to avoid 
jamming slow typewriter keyboards. Technology 
eliminated the problem, but the awkward solution 
is still with us. However, a different layout is 
becoming more widely accepted, which results in 
productivity and typing speed skyrocketing. This 
demo program will allow you to convert your 
keyboard temporarily and see if you like the 
arrangement. 

6809 vs. 68000 — While the 68000 based computer 
is far more expensive than the 6809, it can be 
100 times more powerful, but, what are the real 
differences. A checkbook offers a good way to 
compare their abilities. This program contains the 
main subroutines to create a machine language 
program which runs on either kind of machine to 
allow comparison. 

Flight Simulator II — Studying an accepted 
masterpiece of program design is one way to learn 
really fine programming skills. Flight Simulator II 
is just such an exciting state-of-the-art package. 
Looking into its details and the way it was created 
will give even experienced programmers more than 
a few pointers. 

C-64 Graphics Dump — This "perfect" dump for 
the impressive C64 graphics works in either HiRes 
or multi-color mode, allows large size printouts, 
works with many printers and graphics packages, 
can vary color and intensity, and is very fast. This 
program is available on a MicroDisk. 

Communication Between Computers — What do 
you do when you have several different computers 
and only one printer? Interface and merge it all 
into one efficient system. 



HILISTER — Highlighting lines of text and 
programs can be very useful for emphasis or clarity 
when discussing material on the screen in business 
meetings, classrooms, seminars. This program also 
allows easy movement within a program or text. 

Simple Numeric Sorting — This simple method 
lets long lists be arranged in order, without user 
supplied programs. It takes advantage of a built-in 
BASIC feature. 

Applesoft Compression Program — With other 
programs, extra long listings often do not work, 
overflowing the Called Line Number Table. This 
program has several unusual features which surpass 
other Compression routines. 

Useful Math Functions — Save time and 
mathematical aggrevation with a compilation of 
defined functions. 

Commodore to Apple — Sort of a poor man's 
modem. Commodore cassette files can be sent to 
Apple disks for storage or interfacing with 
peripherals which don't work with Commodore. 
This works with data files, BASIC programs and 
memory ranges. 

Circles for the C64 — In a HiRes environment, 
creating circles can be a problem. The code for this 
mathematical way of defining and plotting circles in 
a game or business type analysis is most helpful. 
The theory will generally work on any 6502 based 
computer with HiRes capabilities. 

BASIC Hex Loader — This handy BASIC Utility 
will load Machine Language code in Hex, and a 
special version for the C64 will even generate the 
DATA statements. 
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A Basic DVORAK 
Keyboard for the 
VIC-20 and C-64 

Alfred J. Bruey 
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A Comparison of 6809 
and 68000 

Mike Rosing 
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Flight Simulator II: 
Microcomputer 
Simulation At Its Best 



Chris Williams 



^J Graphic Print for C-64 

Michael J. Keryan 
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Interface Clinic: 
Communication 
Between Different 
Computers 

Ralph Tenny 
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HILISTER - A Study 
and Teaching Aid 



J. Morris Prosser 
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Super Simple Numeric 
Sort 

Robert L Martin 
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A "new" key arrangement 
is gaining acceptance, 
increasing typing speed 
and productivity 
enormously. 



The checkbook offers a 
simple, effective way to 
compare these two 
microprocessors. 



By analyzing this design 
masterpiece, programmers 
may discover the elements 
needed to make their own 
software great. 



Create a full-page graphic 
printout from a 
Commodore 64 high 
resolution display. 



Merge several computers 
into one efficient system, 
sharing a single printer. 



Move easily within your 
programs and highlight 
parts of text or listings for 
emphasis, drama, clarity. 



Arrange a list in numerical 
order without the need for 
a user supplied sorting 
program. 
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CMPRSS: Improved 
Applesoft 
Compression Program 

Ian R. Humphreys 



Compress large programs 
and retain comments 
without overflowing Called 
Line Number Table. 
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Useful 

Functions — Part II 

Paul Garrison 
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Com modore-To- Apple 
Cassette File Loader 

Art Matheny 



Save time and 
mathematical aggrevation 
with a compilation of 
defined functions. 



Transfer cassette files 
written on VIC-20 or C64 to 
an Apple disk for 
interfacing, etc. 
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BASIC Hex Loader 

Robert M. Tripp 



Handy BASIC utility to 
load Machine Language 
code in Hex. 



66 



Circles for the 
Commodore 64 

Lester Cain 



An interesting 
mathematical way to plot 
circles on the C64. 
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11 Paint Magic 



11 TimeTrax 



Easy to use 
graphics with 
joystick and 
keyboard. 



Time management 
system for personal 
or business life, 
including printed 
schedules. 



1 1 Promenade 
Model C1 EPROM 
Programmer 



12 Spell Perfect 



Add-on programmer 
which handles 12 
models of EPROM 
and at least 8 of 
EEPROM. 



Machine language 
spelling checker for 
Letter Perfect or any 
standard text files. 



12 The Complete 
Graphics System 



2 and 3 dimensional 
graphics including 
108 colors. 
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Dear Readers, 



As we approach the midpoint of 1984, I find myself 
looking towards the future. In the field of computers so 
much happens so quickly that it is hard to imagine what 
will transpire in the remainder of this year, let alone five 
years hence. One way to approach the future is by 
examining the present, noting the trends and then 
projecting. At this time the world of the microcomputer 
continues to dish up new surprises. It seems every time 
you turn around a new computer is being launched. 
Although the appearance may differ from machine to 
machine they are all based on a few standard chips. At its 
inception, MICRO chose to focus on the 6502 chip. This 
chip has proven itself to be a well designed and dependable 
innovation. Although the heyday of the 6502 has passed, it 
is not dead. This is clearly evidenced by Apple releasing 
yet another 6502-based computer - the Apple lie. Apple 
seems to also be aware of the need to move onward and did 
so with the introduction of the Macintosh. The 68000 
brings the general populace in touch with 16-bit machines. 
(I will not go into the advantages of a 16-bit over an 8-bit 
because, if there weren't any, the 68000 would never have 
surfaced.) Presently the big name in chips seems to be 
Intel, not Motorola. The 8088, 8086 and other chips 
developed by Intel have become the backbones of micros 
made by IBM, Hewlett-Packard, and Digital, to name a 
few. These are not names to scoff at. As popular as 6502 
based machines (Apple, Atari, Commodore, etc.) are, the 
bulk of sales is starting to shift to machines based on other 
chips. Unfortunately or fortunately, depending on your 
viewpoint, there are rumors that Intel is only going to be 
able to fill 25 percent of its orders. If this proves to be true 
then someone will have to pick up the slack. The question 
is who. Perhaps Motorola will seize the opportunity and 
cover the deficit, using their chips. 

But, even if Intel completely dominates the market, 
the 6502 will carry on. People don't throw away 
computers because they become outdated. The fact that 
there are still many IBM mainframes using cards is a 
testimony to this. Why do people continue to use outdated 
computers? Certainly the monetary aspect can't be 
overlooked. Even with drastic reductions in the price of 
memory [the new HP Nomad has as many words of 
memory as the old IBM 360 series), and the lowering of the 
price of computers in general, they are still not cheap. For 
many it is a matter of loyalty. Others are content with the 
familiar and prefer the comfort of an old friend to the fear 
of the unknown. And there are those people who prefer to 
live in the past, not be bothered and are perfectly content, 
thank you very much. For these and other reasons there 
will be a need for 6502 machines, journals, software and 
support for many years to come. 

But what about the future? Certainly one cannot ignore 
the 68000 or Intel's 80186. To pretend they aren't 
improvements on previous chips is folly. Rather than seek 
to delude ourselves I suggest we embrace new technology 



with open arms and open eyes. To blindly accept 
something simply because it has been billed as new and 
improved is foolish. I think the best approach is one of 
open skepticism. A willingness to explore new territory 
and seek new frontiers. After all, isn't that what the world 
of computers has always been about? Let's examine the 
innovations and carefully separate the wheat from the 
chaff. Bearing in mind past mistakes, we will always find 
room to improve and go forward. We have built better 
mousetraps; we have even built better "mouses"; why not 
now create men? Because, of mice and men, there is no 
end. 
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Mark S. Morano 
Technical Editor 
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On the bridge at Concord, Massachusetts, a colonial 
minuteman dreams of past and future glories of 
family and country. Data Bases, long thought of as 
tools for business and government, have many 
useful applications in personal life as well. Keeping 
family trees, health information, employment 
records are just a few uses which can make you 
paper-independent. Happy Independence Day! 
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Dear Ian, 

(RE: Micro 67, Dec. 1983) 

I have a question about your program 
'C-64 Alarm Clock'. For some 
unknown reason, when I use 'GOSUB 
9140' to reset the alarm, the computer 
displays 'SYNTAX ERROR IN 48'. It 
does not affect the operation of the 
clock, but I would like to know why 
this statement appears, since there is 
no statement 48 in this program. I have 
tried to list statement 48, however, 
nothing lists. Please reply as soon as 
possible. Thank you. 

Kenneth K. Choy 
San Francisco, CA 

Dear Kenneth., 

The situation you describe, getting a 
'syntax error' after 'gosub 9140', seems 
to occur only occasionally. The 
simplest explanation is that the 
GOSUB command is intended to be 
used from within a piogiam. If you type 



it into the keyboard directly, then 
BASIC will execute the subroutine ok. 
When it is finished, however, it will try 
to resume executing the program at the 
next statement after the GOSUB. Since 
there is no program running, it gets 
confused and gives an error message. 

The error seems to be quite 
harmless, and does not affect anything. 
If you use the 'gosub 9140' statement 
within a program, you should not incur 
an error. 

There is no line 48, of course, and 
that number is meaningless. 

I hope you enjoy the alarm clock 
program, Kenneth, and that this odd 
error doesn 't cause any problems. 

Ian Adam 

Vancouver, BC, Canada 



To the editor, 

Ref. Micro No. 51 August 1982, 
page 97. 



First things first. I truly enjoy your 
magazine. Similarly for Mr. Bongers 
articles. 

In Mr. C. Bongers program on an 
improved method of garbage collection, 
MICRO No. 51 page 90, the program 
works as advertised. However, I found 
a slight problem when I attempted to 
use it with string arrays. The second 
paragraph on page 97 appears to be too 
brief. I tried using the string version of: 

&CLEAR A:DIM A(20,20) 

to initialize a string array to zero. This 
version: 

&.CLEAR A$:DIM A$ (20,20) 

didn't do anything until it was 

modified to force a cleanup as follows: 

&CLEAR A$:FRE (1,K) : DIM 
A$(20,20) 

From then on I was smiling. 

James Fulton 
Corona Del Mar, CA 

JMCftO 




One Month 

Added to All 

Subscriptions 



Because of our combined April/May issue, we've 
gotten some questions from readers wanting to know 
if we were going to be bimonthly, if they were going to 
loose an issue, if we were taking a vacation early, etc. 

The answer is much simpler. When we redesigned 
MICRO to make it more readable, we needed some 
extra time between issues to gear up our production 
department (artistic temperament and all that). So we 
gained the needed time by combining two issues. 

It was a one-time thing. We are not going to be 
bimonthly. More importantly, you will not lose an 
issue. If you subscribed for 12 issues, you will receive 
just that — and the combined issue counts as only 
one. All subscriptions will be extended one month. 

While we're on the subject of subscriptions, please 
check your mailing labels to be sure all information is 
correct; tell us about problems right away. 




At last! ...A dual 6522 versatile 

interface adapter (VIA) board 

for the Commodore-64. 

The 6522 VIA, long the preferred 
input/output chip for 6502 mi- 
crocomputers, is now available for the 
C-64. 6522 programming techniques, 
covered in many available books, can now 
be applied to the C-64 for even the most 
sophisticated real-time control applica- 
tions. Board allows full use of the IRQ 
interrupt. When combined with the 
C-64's memory capacity, it provides an 
extremely powerful yet cost-effective de- 
velopment system and controller in one 
package. Includes extensive application 
notes and programming examples. 

Up to four boards can be connected to- 
gether, providing sixteen 8-bit ports. 
Order Model 64IF22, $169 for one, post- 
paid USA. Each additional $149. 

Complete reconstructed Assembly Lan- 
guage source code for the C-64's BASIC and 
KERN AL ROMs, all 16 K! 

Extensively commented and cross- 
referenced. Far more than a mere "memory 
map" of useful locations, this book really does 
tell all. An incredible time-saver in effective 
C-64 programming and understanding. Order 
C-64 Source $29.95, postpaid USA. 

SCHNEDLER SYSTEMS 

1501 N. Ivanhoe, Dept. M7 

Arlington, VA 22205 

Telephone orders/information: (703) 237-4796 

VISA MASTERCARD 
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Sage 

Microcomputer 

System 



Distributor 

Sage Computer 
4905 Energy Way 
Reno, NV 89502 

Introduction 

The SAGE II is a fast 32-bit computer using the p-System 
Operating System with a 68000 Interpreter to emulate the 
'p-machine.' SAGE chose this operating system for a 
number of reasons. To develop their own Operating 
System would have been time consuming and costly, and 
once it was finished they would be incompatible with 
everyone else. Instead they opted for a highly portable 
system which would allow programs to be transferred 
from one machine to another with very little difficulty. 
Portability being the key, many programmers purchased 
SAGEs to use as developmental tools. The SAGE also had 
the added attraction of being very fast. With these points 
in mind, the majority of the SAGEs sold during the first 
year were bought by programmers and developers. Since 
that time the market and support of the SAGE has greatly 
expanded. 

The Processor 

The SAGE II uses an 8mhz, interrupt driven 68000 
microprocessor. It has a 16-bit data bus and a 24-bit 
address bus, directly addressing 16 million bytes. There 
are more than 1000 executable instructions, the set 
containing 56 instruction types with 14 different 
addressing modes. With 17 general purpose registers, each 
32 bits long, a 24-bit program counter and a 16-bit status 
register, the SAGE is a powerful machine. Using an 8 Mhz 
clock the MC68000 (without wait states) runs at 2 million 
instructions per second. There is a light on the processor 
which indicates when the bus is active, inactive or the 
processor is in process. 

Memory 

RAM memory for the SAGE II is configurable from 128K to 
1024K bytes in 128K increments. On the Main processor 
board [CPU board) up to 512K bytes may be stored, with 
an additional 512K on the Winchester board. A self-test, 
DEBUGGER, and bootstraps are in the EPROM firmware. 

Keyboard and Physical Description 

Basically a standard Qwerty keyboard, the entire unit is 
connected with a telephone-like cord allowing the user to 



move the keyboard to his lap or any convenient position. 
The basic alphanumeric keys are laid out in the usual 
manner with a numeric pad to the right. Above this pad are 
four programmable function keys ( their function changing 
from program to program) . The SAGE II is contained in an 
aluminum case measuring 3. 5" x 12.5" x 17". Weighing 
in at 151b. 8 oz., it is easily moved. 

Interfaces 

SAGE decided to simplify I/O implementation by using 
I/O memory-mapped assignment. The connections 
provided are: Terminal - RS232-C, Modem - RS232-C, 
Printer - parallel, Group-A and B - dipswitch, and IEEE- 
488 -GPIB bus. A second RS232-C port is available. With 
the Winchester board 4 serial ports can be supported. 

Documentation 

The documentation we received included a Getting 
Started/Word Processing volume, a Technical Manual, 
and a p-System Operating System Manual. Each manual 
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was contained in a 3-ring hard-cover binder which fit into 
another hard-covered box. The documentation was clearly 
written, with indexes and table of contents that were very 
helpful. Most of the information was easily accessed and 
references were provided where appropriate. 

Software 

There are some fine software packages available for the 
SAGE II. These include some excellent business, spread- 
sheet and database products. As the SAGE II uses the 
p-System Operating System, it lends itself to easy 
transferral of software developed on other p-System 
machines. Given this portability of programs, I would 
expect a steady influx of software for this microcomputer. 

Peripherals 

The SAGE II supports single and dual disk drives, 
Winchester disk, dot matrix and daisy-wheel printers, 
monochrome and color monitors. The system came with a 
QUME monitor which is economically designed (i.e., 
takes people into consideration). This was a very nice 
addition, being able to rotate and swivel the screen to 
avoid glare, and position the monitor to suit the user's 
preferences and body [tall, short, etc.). 



Price 

The SAGE II with one 640K floppy drive is listed at $3,200, 
with two 640K floppy drives it is listed at $3,900. If you 
choose to expand to 512K bytes of parity RAM [which is 
necessary for either the Sage Multi-User system or the 
Idris Operating System), it is an additional $500. The 
Qume CRT comes in a variety of flavors, prices ranging 
from $690 for the green QVT-102 to $1,310 for the amber 
QVT-211GX which has full graphics capabilities. 

Conclusion 

The SAGE II is a well designed and competent computer. 
SAGE is the only low-cost multi-user [2 users) and multi- 
tasking micro on the market. Allowing foreground and 
background activites to run concurrently, you can compile 
while using the word processor. Although this not the 
micro for everyone it is definitely one of the best 68000 
micros currently available. For those who are interested in 
a more serious micro, particularly for developmental or 
business purposes this is definitely a machine worth 
considering. 
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OS9 

APPLICATION 
SOFTWARE 



ACCOUNTS 
PAYABLE 

$299 



ACCOUNTS 



PAYROLL 
GENERAL . - —— 
LEDGER $499 
with 



CASH 
JOURNAL 



SMALL 
BUSINESS 



RECEIVABLE AQQQ INVENTORY 

$299 9dyb $299 

COMPLETE DOCUMENTATION $19.95 

OS9 & BASIC 09 ARE TRADEMARK OF 
MICROWARE, INC. & MOTOROLA CORP. 



SPECIALTY 
ELECTRONICS 



(405) 233-5564 
2110 W. WILLOW - ENID, OK 73701 
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ISOBAR... 
most complete 
computer protection! 

More features to prevent errors, false printout, disc 
skips! Only ISOBAR has 3-way spike protection, noise 
suppression for RFI PLUS isolated filter banks! In- 
dividual filter banks isolate each load from other loads 
minimizing data errors of any kind. MOV surge sup- 
pressors arrest both common mode and differential 
mode surges. L/C filter network rejects radio fre- 
quency noise at any amplitude. Torroidal coils for 
greatest efficiency! All-metal housing. 

n^"""T"7~^^"!^u J"?"!?"" T Model IBAR 4-6 

J Indus-Tool, 325 W. Huron, Dept. M , (4 outlets, 

! 6 ft. cord) 



j Chicago, IL 60610 

1 Send model #_ 

■ Enclosed is $ 

■ i 



JJSUI Only $79.95 
I 



- D MasterCard or □ Visa 
' Card no 



Name 

Signature _ 
Address _ 



orchar 9 eon I Model IBAR 2-6 

Expires j (2 outlets, 

6 ft. cord) 



I 



I Only $54.95 
I 



■ Model IBAR 8-15 
j (8 outlets, 
I 15 ft. cord) 



Lil —^.Z^^J Only $97.95 
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Why Winchester failed his 
computer course? 
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Last month we printed a puzzle, 
(see copy). The secret is now revealed 
-read the slashes and circles as ones and 
zeros, divide them into groups of 
seven, translate each group into its 
ASCII equivalent, then read the letters 
in reverse order; you get the following 
message -"welcome to lyte bytes." 

This month to text your computer 
literacy we have a word scramble. To 



find the answer — first decipher each 
word and write it in the adjacent box; 
extract the letters that fall within the 
circles; take these letters and 
unscramble them to arrive at the final 
answer using the blank lines under the 
cartoon. We will of course provide the 
answer in next month's Lyte Bytes. 
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Product Name: Paint Magic 

Equip. Req'd: Commodore 64 with disk drive, 

joystick and color monitor 
Price: $50 

Manufacturer: Datamost, Inc. 

8943 Fullbright Avenue 

Chats worth, CA 91311 

Description: A graphics program that creates pictures 
with the help of a joystick and the keyboard. You advance 
from circles and boxes with one color fills, to sketches 
with self-designed color patterns which can be transposed, 
exchanged and saved for later recall. Portions of the screen 
can be magnified for detailed work. Sample pictures are 
provided to show you what Paint Magic is capable of. 

Pluses: Any screens you design can be saved and included 
in your own BASIC programs. Because of the numerous 
color and pattern choices you have amazing flexibility to 
experiment with. 

Minuses: Only five colors can be used at a time. A 
joystick with eight positions is essential and being able to 
select diagonal lockout is a very useful feature. 

Documentation: An attractive and simple tutorial 
provides the needed information 

Skill level: Beginner and up 

Reviewer: Mike Cherry 



month that becomes 12 months old. Maximum of 311 
entries per month or 9079 characters of text. Maximum of 
99 entries per day. Good error messages. A clock is 
included (hardware and assembly instructions). This 
maintains the correct time and date, using two AA 
batteries as a backup. The clock itself makes this package 
worth the price. The clock can also be used in Applesoft 
BASIC or 6502 assembly language programs, a machine 
language program is included on the disk. Clear readable 
graphic display of calendar (month at a time). 

Minuses: Time-Trax has a feature which reminds you of 
upcoming appointments and tells you when you have 
missed a scheduled event. A great idea, but one that is 
limited by the necessities of 1) your computer must be on, 
2) it must be running Time-Trax, and 3) a menu or 
calendar must be displayed. If you haven't met these 
requirements your reminder becomes a missed event. Not 
very practical in practice, since most people will not 
choose to keep their computer always running and tie up 
their system with one program, i.e., Time-Trax. Rather, I 
suggest they should have made this a background instead 
of a foreground task. 

Documentation: Thorough, easy to understand. Unlike 
much documentation, an index has been provided. 

Skill level: Beginner and up. 

Reviewer: Mark S. Morano 



Product Name: Time-Trax 



Equip. Req'd: 



Price: 
Manufacturer: 



Apple II, II or He, monitor (preferably 

Black and White), disk drive, blank 

diskette, 2 AA alakaline batteries 

$99.95 

Creative Peripherals Unlimited, Inc. 

1606 S. Clementine 

Anaheim, CA 92802 



Description: An easy to use time management system, 
designed to help you keep track of events, scheduled 
meetings, etc., in your personal or business environment. 
One package can manage an infinite number of users. The 
program keeps a calendar of scheduled events for one year, 
and enables the user to print out a daily, weekly, or 
monthly schedule. It has a search of entries option, using 
keyword(s) and wildcards. 

Pluses: Very simple to use, clean, clear and helpful 
menus. Hitting an escape (at most three times) will return 
you from anywhere in program to the main menu. Will not 
allow you to make an entry into the past. Has two kinds of 
cursors: blinking — displayed when you are to type 
information in; and non-blinking — displayed when you 
are to select an option. Retains data for the present month, 
and eleven months past and in the future, deleting any 



Product Name: Promenade model CI EPROM 
Programmer 

Equip. Req'd: Commodore 64 or VIC-20 Computer, 

Disk or Tape 
Price: $99.50 plus $3 postage/handling 

Manufacturer: TASON-RANHEIM 

580 Parrott Street 

San Jose, CA 95112 

Description: The Promenade is a highly capable EPROM 
programmer which operates from the User Port of the VIC 
or C-64 computers. It can program at least 12 models of 
5-volt only EPROM (Erasable Programmable Read Only 
Memory) ranging in size from IK x 8 to 32K x 8 and 8 
models of EEPROM (Electrically Erasable PROM). In 
addition to programming EPROMs and EEPROMs (and 
erasing EEPROMs) the unit will save assembly language 
object code (as will any programmer) and also will put 
BASIC object code into ROM. An auto-start loader is 
furnished which can make any ROM auto-start when 
plugged into the computer's expansion port. Promenade's 
own software will put several BASIC programs on an 
EPROM, along with a directory of those programs. Thus, 
working programs can be "cast in silicon" on EPROM and 
simply plugged in to change job assignments for a 
computer. This feature is being widely used in industry 
where the low cost of a VIC-20 makes it attractive to 
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dedicate a computer. The ease of BASIC programming and 
subsequent installation of the program in EPROM, allows 
major cost savings for computerized projects. Rapid 
turnaround of modified programs is possible with 
EEPROMs: the time for erasure and reprogramming an 
EEPROM can be as short as 2 minutes or less! 

Pluses: This package outperforms most other add-on 
programmers, yet the cost is lower than any I've heard of. 
If you have the computer, all you need is mass storage, a 
Promenade and EPROMs to start generating programs 
which don't go away if the power fails. It is rugged, 
attractive, highly engineered and well made. Their 
immediate concern is to get the customer's problems 
solved as promptly as possible, even if this requires 
express mail delivery of a replacement unit. 

Minuses: The major lack of this equipment is in 
documentation for programming EPROMs with assembly 
object code, and on how to manipulate assembly files with 
a debug monitor co-resident with the Promenade software. 
Everything works well together - it is just hard to learn 
how from the documentation. It is my personal prejudice 
that electrical schematics should be furnished with all 
electronic products, but the low cost of Promenade 
overcomes this feeling somewhat. 

Documentation: A 16 page manual [but no schematic) is 
furnished. It covers saving BASIC programs to EPROM in 
meticulous detail. The manual is not well organized, but 
it is small enough that everything can be found rather 
easily. Documentation regarding use of Promenade for 
"normal" assembly-language programming is very sparse. 

Skill level: In general, using EPROM programmers 
requires considerable knowledge about preparing assembly 
code for use in a read-only environment. However, this 
combination of equipment and documentation should 
allow inexperienced persons to save BASIC programs 
readily. 



Reviewer: Ralph Tenny 



Product Name: Spell Perfect 



Equip. Req'd: 

Price: 

Manufacturer: 



Apple II w/48K and drive 

$89.95 

LJK Enterprises, Inc. 

7852 Big Bend Blvd. 

St. Louis, MO 63119 



Description: A machine-language spelling checker 
program operating on Letter Perfect or any standard text 
\files. It is compatible with most 80 column cards and has a 
file buffer of over 40,000 characters. Words are easily 
added to the dictionary from corrected documents and up 
to 255 dictionary disks are allowed - the program prompts 
for disk insertions. 



Pluses: The well written manual is not needed for the 
most part being menu driven and having easily understood 
prompts. The program is fast (a 100 sector file took less 
than 2 minutes] and offers words to be corrected in context 
with the surrounding text. A "help" command is available 



to prompt you with similar sounding words from the 
dictionary or you can edit the word in place. 

Minuses: The program doesn't recognize " ' " or " - " 
leading to problems with hyphenated or contracted words. 
A prompt to add word to dictionary instead of rerunning 
the program on the corrected file would be nice. 

Documentation: The 72 page manual nicely 
complements the on-line prompting and answers all 
questions with specific examples. 

Skill level: No particular computer knowledge necessary. 

Reviewer: Phil Daley 



Product Name: The Complete Graphics System 

Equip. Req'd: Apple II, II, He, Color Monitor, disk 

drive, extra diskettes for backup copies 
and work disks 



Price: 
Manufacturer: 



Penguin Software 
830 4th Avenue 
P.O. Box 311 
Geneva, IL 60134 



Description: As the title says, this is a complete graphics 
system. Easy enough for those who aren't programmers 
and sophisticated enough for those who are. You can 
create two and three dimensional graphics, use 108 
blended colors, outline areas, fill them in, draw with lines, 
brushes (96 choices), use freehand drawing, employ 
preprogrammed boxes, arcs, circles, triangles, and ellipses. 
There is a program in which you can create your own 
shapes, store them in a table, and then draw on them 
whenever you choose. A variety of input devices are 
compatible: ordinary keyboard, joystick, trackball, touch 
tablet, paddles, Apple graphics tablet, a mouse, and 
Houston Instruments HiPad. (What's left?) An object can 
be magnified 2, 4, or 8 times its original size, rotated, 
shrunk, varied in intensity, and easily transferred to any 
drawing. Text can be added to graphics using another 
special program. As originally stated — this is a 
complete graphics system. 

Pluses: The pluses are many. The fact that it can do all of 
the above is a plus; that it does them well merits special 
applause. 

Minuses: Overall, there is no such thing as a perfect 
graphics package. There will always be flaws. As far as 
minuses go with this product they are truly insignificant, 
bordering on non-existent. 

Documentation: The documentation is generally clearly 
written. There are some sections that could be more lucid, 
but with some rereading most everything can be figured 
out. 

Skill level: Intermediate to advanced. 



Reviewer: Mark S. Morano 
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A Basic DVORAK Keyboard 

for the 
VIC-20 and Commodore 64 
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by Alfred J. Bruey 



The current keyboard was designed to slow typists 
down. A new arrangement can increase productivity 
enormously 



At the 1876 Centennial Exposition one 
exhibitor presented a strange gadget 
which is now known as the 
"typewriter." It did not receive as 
much attention as it should have 
because this new, practical discovery 
was overshadowed by the "telephone," 
another strange new invention. 

One of the first typewriter 
designers, Christopher Sholes, found 
that if the keys were arranged in a 
reasonable order, they would jam 
because of their slow action. So he 
rearranged them so the keys that were 
often hit together would not get tangled 
with each other. His arrangement, 
which assigns the letters 
QWERTYUIOP to the top row of 
alphabetic keys, is still used today. I 
will refer to this arrangement as the 
QWERTY keyboard, for obvious 
reasons. If there is a QWERTY 
keyboard, there must, of course, be a 
non-QWERTY keyboard. Otherwise, 
what would I be writing about? 

Actually, there are, or have been, 
many non-QWERTY keyboards. The 



one that I'll be discussing here, the 
Dvorak keyboard, was designed by 
August Dvorak in the 1930's. Dvorak 
wasn't the first to develop a non- 
QWERTY keyboard; in the last quarter 
of the nineteenth and first quarter of 
the twentieth century, there were a 
great variety of typewriter keyboard 
arrangements from which to choose. 
When I was collecting old typewriters a 
few years ago, before a lack of storage 
space put an end to that hobby, I found 
that probably the easiest-to-find non- 
QWERTY keyboard was found on the 
old Oliver typewriter whose model 
numbers went all the way to Number 9 
before they were discontinued. 

The DVORAK Keyboard 

Figure 1 shows a drawing of the VIC-20 
and C-64 keyboard with the commonly 
used keys changed to represent a 
simplified version of the Dvorak 
keyboard. Notice that no attempt was 
made to incorporate all the special 
characters. The arrangement in this 



figure follows that shown in an article 
[Dvorak Keyboard for Your Computer) 
by John Raines in the August, 1983 
issue of MICRO Magazine. This article 
presented a 6502 machine language 
program for the Apple Computer, 
which allows the Dvorak arrangement 
to be used to input data to Apple 
programs. 

The VIC DVORAK Program 

The Dvorak keyboard program shown 
in Listing 1 is a demonstration program 
that you can run to see whether or not 
you like this "new" arrangement. All 
it does is put whatever you type on the 
screen. 

The program logic is straight- 
forward. A GET instruction is used to 
get characters, one at a time, from the 
keyboard buffer. Then the ASCII value 
of the character is obtained. A con- 
version table, entered with a DATA and 
READ statement, is used to convert the 
QWERTY characters to the equivalent 
Dvorak keyboard positions. Then the 
character is printed on the screen [in 
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Listing 1 



© 



10 DIM MT(47) 

50 DATA 87,00,86,90,56,55,53,51,49,57,48,50,52,54,83,00 
55 DATA 00,00,00,00,00,65,88,74,69,46,85,73,68,67,72,84 
60 DATA 78,77,66,82,76,63,80,79,89,71,75,44,81,70,59 
65 FOR 1=1 TO 47:READ MT(I):NEXT I 

100 GET K$:IF K$=""THEN 100 

101 K=ASC(K$) 

102 IF K=60 THEN K=44:UC=1:G0T0 115 

103 IF K=62 THEN K=46:UC=l:GOTO 115 

104 IF K=63 THEN K=47:UC=1:G0T0 115 

105 IF K=91 THEN K=58:UC=l:GOTO 115 

109 UC=0:IF KO100 THEN UC=1:K=K-128 

110 IF K$=CHR$(13) THEN PRINT CHR$(13); :GOTO 100 

111 IF K$=CHR$(32) THEN PRINT CHR$(32); :GOTO 100 
115 PRINT CHR$(MT(K-43)+128*UC); 

120 GOTO 100 



lines 110, 111, or 115}. Then execution 
is returned to line 100 to GET the next 
character. 

Using the Program 

First press the SHIFT and 
COMMODORE keys to put the VIC 
into text mode. Next load the program 
(QWERTY LOAD translates to Dvorak 
NRAE) and the RUN it fRUN becomes 
PGBJ . Then you begin typing as though 
you had a Dvorak keyboard. When you 
are done using the program, press the 
RUN/STOP key to get out of the 
program and revert to the QWERTY 
keyboard. 

Notice that only the characters 
outlined in the heavy black lines in 
Figure 1 are defined. You can use other 
characters, but you will probably get 
the message 

7ILLEGAL QUANTITY ERROR IN 115 

if you do. 

Changing Your Keyboard 

There are various ways to change your 
keyboard: 

1 . The easiest way is to put squares of 
masking tape on the keytops and write 
on the proper leters with a felt-tip pen. 
You might write the QWERTY symbols 
in one corner of the tape and the 
DVORAK in another. 

2. You can change keycaps. This is not 
a trivial task and you should consider it 
only if you are making a permanent 
change. 



3. Another temporary solution is to 
put the Dvorak character on tape on the 
front of the keycap, the way APL 
characters are often imprinted on keys. 
These characters can also be painted on 
the keyfronts for a permanent change. 

Getting New Keyboard 
Arrangements Adopted 

The major problem in trying to get a 
new keyboard arrangement adopted is 
that there are millions of people trained 
on the QWERTY keyboard. Another 
problem is that there are millions of 
QWERTY Keyboards in use. Tests 
performed since the 1940's have shown 
convincingly that it does not take long 
for the increased productivity possible 
with the Dvorak keyboard to recover 
the investment in re-training QWERTY 
typists on Dvorak keyboards. But 
many companies don't have the money 
to hire replacement help to keep up 
with the day-to-day work as their 
typists are being retrained. They also 
do not have the money to replace all 
their QWERTY hardware. 

A simple solution to the hardware 
problem is in sight. The availability of 
computers with programmable 
keyboards makes it possible for users 
trained on two different keyboards to 
use the same computer (at different 
times, of course) by plugging in 
differently defined keyboards. By using 
this method, companies can gradually 
switch their employees to the Dvorak 
layout. A Dvorak keyboard is already 
available as an option for the IBM PC. 



Program Extensions 

As this program now stands, it is only 
useful as a demonstration of the 
Dvorak keyboard. You can't use this 
program to input data into a different 
program without some programming 
effort. 

1. You can change this program to an 
input subroutine which you can attach 
to a more useful program. Then you 
can use the subroutine to enter data for 
the main program. 

2. If you are going to use the Dvorak 
keyboard for your permanent keyboard 
arrangement, you will probably want to 
re-write this technique in machine 
language and use this program as a 
replacement for your computer's input 
routine. You can get help doing this 
from the MICRO article referenced 
earlier. 

3. You might want to extend this 
system to handle the characters that I 
didn't include in my program. 

4. You can add coding to print the 
characters on the printer as well as the 
screen, so you can have a record of your 
typing progress if you are using this 
program to learn the new keyboard. 

AlCftO 




Sure 
Ws insured? 

SAFEWARE™ Insurance provides full 
replacement of hardware, media and 

purchased software. As little as $35/yr covers: 
• Fire • Theft • Power Surges 

• Earthquake • Water Damage • Auto Accident 

For information or immediate coverage call: 

1-800-848-3469 

In Ohio call (614) 262-0559 



SAFEWARE, THE INSURANCE AGENCY INC. 
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A Comparison: 




by Mike Rosing 



3EE 



SHE 



EIQE 



The checkbook offers a simple but effective way to 
compare these two microprocessors 



EIQE 



3BE 



SEE 



SHE 



SEE 



3BE 



The 6809 microprocessor is found in 
several computers, including the Radio 
Shack color computer which is 
available just about anywhere. The 
68000 microprocessor is also found in 
several computers. Some of these are 
APPLE'S LISA and MACINTOSH 
computers and the SAGE II . While the 
68000 based machines can cost 10 
times the price of the 6809 based 
machines, they are easily 100 times 
more powerful. 

To compare these two machines at 
the machine level requires a specific 
project; the check book is simple, but 
illustrative. This requires addition, 
subtraction, movement of values, the 
conversion of ASCII to binary. What 
follows is not a complete program. It 
does contain the main subroutines 



required to create a simple check book 
program in machine language on either 
the 6809 or 68000. 

To avoid rounding problems the 
choice of integer arithmetic is 
preferred. The smallest unit of money 
is the penny, so all calculations are 
done in pennies. 

Next we have to decide the 
maximum value with which we are 
going to deal. This value should be a 
power of two and so large that we will 
never reach it. Since 16 bits leaves us 
with $327.67 as a maximum value we 
take 32 bits as the size. This gives us 
$21,474,863.54 as a maximum value. 
Very few check books exceed this value 
(positive or negative] . 

Good machine code writing 
involves subroutines. Because the 



comparisons here are so simple, the 
subroutines may look silly. Remember 
that the purpose is comparison and not 
necessarily good code. 

An implicit assumption in these 
subroutines is that some operating 
system is involved. Thus the user stack 
on the 6809 is presumed to be 
initialized. The 68000 is presumed to 
be in user mode and the stack pointer is 
initialized. 

Movement 

The first subroutine (MOVEATOB) is 
to move a quantity from point A to 
point B in memory. The 6809 code 
requires two load and two store 
instructions. These destroy the A and B 
registers so they are pushed on the 
stack before and recovered at the end of 
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the subroutine. The 68000 code can 
move 32 bits from memory to memory 
in one instruction without disturbing 
any other registers. 

Addition 

Next we need a subroutine to add 
numbers into an accumulator (see 
SUM). For the 6809 adding the least 
significant 16 bits is no problem. Since 
the carry can not be added to the D 
register, we have to go to byte 
addressing to sum the most significant 
bytes. Another way to do this is to 
create a loop count with the B register 
and use it as an offset. This runs slower 
than straight inline code. 

The 68000 code can add 32 bit 
quantities in a single crack, so there is 
no need to worry about the carry bit. 
The ADD instruction is not as powerful 
as the MOVE instruction. It can only 
add with a data register. So we bring the 
32 bit value into a data register and 
then sum this into the accumulator. 
Note that the MOVEM (move multiple 
registers) can be used with a single 
register as well as many registers. 

ASCII to Binary 

The simple example so far has assumed 
that the numbers are already in 
memory. Since most computers have 
keyboards which work in ASCII, we 
need a routine (GETNUM) to convert 
an ASCII string to a binary number 
which our subroutines can then add. 
Every operating system has its own 
method of getting characters from the 
keyboard. Here we assume that a 
subroutine can be written called 
GETBYTE which will return a byte 
from the keyboard into a register. 

Once the string is pulled into 
memory and all the digits are in the 
range ASCII '0' to ASCII '9', the 
process of conversion can begin. 
Multiplying the result by 10 and adding 
in each byte of the string converts from 
human base 10 to computer base 2. A 
simple way to multiply 32 bits by 10 is 
to first multiply by 2 and save this in a 
temporary location. Then multiply by 
4 (giving a final multiplication by 8) 
and add in the temporary value. 
Multiplication by 2 consists of a shift 
left. 

For the 6809, the subroutine ROTL 
rotates the result area left one bit. 
Calling this 3 times with a 
MOVEATOB and the SUM subroutines 
completes the multiplication. Finally, 
a digit from the input string is masked 
off and added to the result. The 
addition requires propagating the carry 



MOVING 32 BIT VALUES CODE COMPARISON 

6809 CODE 
SUBROUTINE MOVEATOB MOVES A 32 BIT VALUE POINTED 
TO BY X TO THE PUCE POINTED TO BY Y. 



PSHU D SAVE D REGISTER 

LDD ,X GET 16 BITS 

STD ,Y SAVE 16 BITS 

LDD 2,X NEXT 16 BITS 

STD 2,Y SAVED 

PULU D RECOVER D REGISTER 

RTS AND LEAVE 



* 

* 
MOVEATOB: 



* 
* 
* 
* 
MOVEATOB: 



68000 CODE 

SUBROUTINE MOVEATOB MOVES A 32 BIT VALUE POINTED 

TO BY A0 TO THE PLACE POINTED TO BY Al. 



MOVE 
RTS 



,L (A0),(A1) 



MOVE 32 BITS 
AND LEAVE 



* SUMMING 32 BIT VALUES CODE COMPARISON 

* 

* 

* 

* 

# 

SUM 



6809 CODE 

SUM ADDS A 32 BIT NUMBER POINTED TO BY X TO AN 

ACCUMULATOR POINTED TO BY Y. 



SAVE REGISTER 

GET LEAST SIGN. BITS 

ADD TO ACCUMULATOR 

SAVE RESULT 

ONE BYTE UP 

ADD IN CARRY TO NEXT BYTE 

SAVE BYTE 

MOST SIGN. BYTE 

ADD TO ACCUMULATOR AND CARRY 

SAVE RESULT 

RESTORE REGISTER 

AND LEAVE 

* 68000 CODE 

* SUM ADDS A 32 BIT NUMBER POINTED TO BY A0 TO AN 

* ACCUMULATOR POINTED TO BY A2 
* 



PSHU 


D 


LDD 


2,X 


ADDD 


2,Y 


STD 


2,Y 


LDA 


1,X 


ADCA 


1,Y 


STA 


1,Y 


LDA 


,x 


ADCA 


,Y 


STA 


.Y 


PULU 


D 


RTS 





SUM: MOVEM. L D0,-(SP) 
M0VE.L (A0),D0 
ADD.L D0,(A2) 
MOVEM. L (SP)+,D0 
RTS 



SAVE A REGISTER 
GET NUMBER 
SUM INTO ACCUMULATOR 
RECOVER REGISTER 
AND LEAVE 



CONVERTING ASCII TO BINARY CODE 

6809 CODE 

GETNUM BRINGS AN ASCII STRING INTO MEMORY AND CONVERTS 
IT TO A BINARY NUMBER. ALL ENTRIES ARE IN PENNIES. 
ENTER WITH X POINTING TO PLACE FOR NUMBER TO GO. 



o 



o 



© 



© 



o 
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through all 32 bits of the result. The 




* 




loop is repeated until all string digits 


© 


GETNUM: 


PSHU D,X,Y SAVE REGISTERS 


have been converted or an error occurs. 




CLR 3,X ZERO RESULT AREA 
CLR 2,X 
CLR 1,X 
CLR ,X 


Comparing the 68000 version of 






GETNUM to the 6809 version, we see 


© 




that one instruction of the 68000 does 






LEAY INSTRING POINT TO INPUT AREA 


the same as two calls to a 10 line 




GNLOOP: 


BSR GETBYTE GET BYTE FROM KEYBOARD 


subroutine of 6809 code. To shift 32 






CMPA #13 WAS IT A CARRIAGE RETURN ? 


bits left once, takes ROTL for the 6809. 


© 




BEQ KRUNCH THEN PROCESS STRING 


To shift 32 bits left twice, takes only 






CMPA #'0' WAS IT TOO SMALL ? 


one line of code for the 68000. The 






BLT GNLOOP THE IGNORE IT 


number of registers on the 68000, 


© 




CMPA #'9' WAS IT TOO BIG ? 

BGT GNLOOP THEN IGNORE IT 

STA ,Y+ SAVE BYTE INTO STRING 


reduces a lot of memory requirements. 
While the 6809 must continually swap 






BRA GNLOOP AND GET NEXT CHARACTER 


pointers from register to memory, the 


© 


# 




68000 keeps all values in registers, for 




* HAVE 


STRING IN MEMORY, NOW PROCESS IT. 


this simple example at any rate. 




KRUNCH: 


CLR ,Y MARK END OF STRING 


Conclusion 


© 




CLR COUNT BYTE COUNT INTO STRING 






* 




These simple comparisons are intended 




* MULTIPLY RESULT BY TEN. 


to be educational. Experience with the 


© 


# 




68000 sometimes makes writing code 




CNVRT: 


LEAY TEMP POINT TO TEMP AREA 
BSR ROTL RESULT TIMES 2 


on the 6809 frustrating. The ability to 






BSR MOVEATOB PUT INTO TEMP 


address 16 megabytes of RAM on the 


© 




BSR ROTL RESULT TIMES 4 


68000 versus 64 kilobytes on the 6809 






BSR ROTL RESULT TIMES 8 


makes one wonder if the term ' 'micro' ' 






EXG X,Y ADD RESULT 


really applies anymore. 


© 




BSR SUM TO TEMP AND SAVE 


The reduced coding required for the 




EXG X,Y INTO RESULT 


68000, increases programmer 






BCS TOOBIG ERROR: NUMBER TOO BIG 


productivity and decreases the time for 




# 




producing a final result. Obviously, 


© 


* ADD IN BYTE FROM STRING 


there are many ways to solve each 






LEAY INSTRING GET NEXT 


problem. The flexibility of the 68000 






LDA COUNT BYTE 


and the number of registers, makes this 


© 




LDB A,Y FROM STRING 


microprocessor the most powerful chip 






BEQ DONE NO MORE TO DO 


to date. While the 6809 makes a great 






CLRA HIGH BYTE OF D CLEARED 


home based computer, the power of the 






ANDB #15 KEEP LOW NIBBLE ONLY 


68000 makes it far more useful in the 


© 




ADDD 2,X ADD IN RESULT 

STD 2,X SAVE RESULT 

BCC BMPCNT NO CARRY TO PROPOGATE 


business or scientific environment. 




© 




LDA 1,X ADD IN 


Bibliography 




ADCA #0 CARRY BIT 








STA 1,X TO EACH 


"MC6809 Preliminary Programming 






BCC BMPCNT BYTE IF 


Manual", Motorola Inc., 1979 


© 




LDA ,X NECESSARY 


"Color Computer Assembly Language 






ADCA #0 


Programming", William Barden, Radio 






STA ,X 


Shack 


© 


* BUMP 


TO NEXT BYTE IN STRING AND CHECK FOR DONE 


"16-Bit Microprocessor Users Manual", 




* 




Motorola, Prentice-Hall, 1982 




BMPCNT: 


INC COUNT BUMP STRING COUNTER 


"Motorola Microprocessors Data Manual", 


© 




LDA COUNT DONE WITH STRING ? 
TST A,Y 


Motorola, 1981, pgs. 4-298 to 4-329 andpgs. 






BNE CNVRT NOT YET 


4-661 to 4-710 




DONE: 


PULU D,X,Y RECOVER REGISTERS 
RTS AND LEAVE 




© 


* ERROR HANDLER WILL BE MACHINE DEPENDENT 


=iml ii-n ii-ii m-ii iF1F= 

Mr. Rosing received a B.S. Engineering 




* 




Physics from Univ. of Colorado in 1976, and 


© 


TOOBIG: 


(SEND ERROR MESSAGE TO SCREEN) 


a Ph.D. in Nuclear Engineering from Univ. 




* 




of Wisconsin in 1982. He is presently Chief 




* DATA 


AREA 


Engineer for Network Telecommunications 


© 


INSTRING: 20 BYTES 
TEMP: 4 BYTES 


in Denver. 


If 7 " H-ll ll-M 11*11 ll-JL . 




COUNT: 


1 BYTE 


1 
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ATARI 48K * TRS C/C 32K 
COMMODORE 64 

747 FLIGHT SIMULATOR 




" •••• ; 
.I 999A 
9«9« I 



ACTUAL SCREEN PHOTOGRAPH 

Superbly realistic instrumentation and pilot's 
view in lifelike simulation which includes 
emergencies such as engine fires and systems 
failures. This program uses high resolution 
graphics to the full to produce the most realistic 
flight-deck display yet seen on a home 
computer. There are 21 real dials and 25 other 
indicators. Your controls operate throttle, 
ailerons, elevators, flaps, slats, spoilers, 
landing gear, reverse thrust, brakes, etc. You 
see the runway in true perspective. Uses 
joysticks and includes options to start with 
take-off or random landing approach. A real 
simulation, not just another game! Cassette 
only, $27.95 (add 6% In Calif.). Sole U.S. 
distributor for D.A.C.C. Ltd., England. 

F. Ashton 

P.O. Box 7037 
Chula Vista, CA 92012 



Come See Us at 
Commodore 
Convention 

Sat. & Sun,July 28-29 
Hershey, Pennsylvania 

The show is being run by the 
Mid-Atlantic Regional 
Commodore Association 
(MARCA) and there will be 
speakers, workshops, and 
exhibitors. For info, call 
Mindy at 717/486-3274. 

It's an easy trip from all areas 
of the east, from CT to VA, 
and a lovely place with lots of 
family fun. 

Come visit us at 

Booth Number 101 

try some of our latest 
software packages, and say 
"Hi" to the MICRO Staff. 



* 

* SUBROUTINE TO ROTATE 4 BYTES LEFT ONCE 


O 


* ENTER 


WITH X POINTING TO BYTES TO ROTATE 




ROTL: 


PSHU D SAVE REGISTER 
ANDCC #0 CLEAR CARRY BIT 
LDB #3 SET COUNTER 


O 


R0TL00P: 


IDA B,X GET BYTE 






ROLA TIMES 2 


o 




STA B,X SAVE BYTE 






DECB DO 4 TIMES 






BPL R0TL00P 


o 




PULU D RECOVER REGISTER 


£ 


RTS AND LEAVE 




* 68000 CODE 


o 


* GETNUM BRINGS AND ASCII STRING INTO MEMORY AND 




* CONVERTS IT TO A BINARY NUMBER. ENTRIES ARE 




* ASSUMED TO BE IN PENNIES. ENTER WITH A3 




* POINTING TO THE PLACE FOR THE RESULT. 


o 


GETNUM: 


MOVEM.L D0-D2/A0,-(SP) SAVE REGISTERS 






LEA INSTRING, A0 POINT TO INPUT AREA 


o 


GNLOOP: 


BSR GETBYTE GET KEYBOARD INPUT 




CMP.B #13, D0 WAS IT A CARRIAGE RETURN ? 






BEQ KRUNCH THEN PROCESS STRING 






CMP.B #'0',D0 WAS IT TOO SMALL ? 


o 




BLT GNLOOP THEN IGNORE IT 






CMP.B #'9',D0 WAS IT TOO BIG ? 






BGT GNLOOP THEN IGNORE IT 






MOVE.B D0,(A0)+ SAVE BYTE INTO STRING 


o 


£ 


BRA GNLOOP AND GET NEXT BYTE 




* HAVE 
* 


STRING IN MEMORY. NOW PROCESS INTO BINARY 


o 


KRUNCH: 


CLR.B (A0) MARK END OF STRING 
CLR.L Dl CLEAR RESULT 




£ 


LEA INSTRING, A0 POINT TO TOP OF STRING 





* MULTIPLY RESULT BY TEN 




CNVRT: 


LSL.L #1,D1 RESULT TIMES 2 

MOVE.L D1,D2 SAVE THIS RESULT 

LSL.L #2,D1 RESULT TIMES 4 MORE FOR 8 







ADD.L D2,D1 ADD IN 2 FOR 10 TIMES 


o 


£ 


BVS TOOBIG NUMBER TOO BIG 


* NOW ADD IN BYTE FROM STRING 




* 


MOVE.B (A0)+,D0 GET BYTE FROM STRING 

AND.L #15, D0 MASK OFF ALL BUT LOW NIBBLE 

ADD.L D0,D1 ADD TO RESULT 


© 




BVS TOOBIG TOO MANY DIGITS 


© 




TST.B (A0) DONE YET ? 






BNE CNVRT NOPE, KEEP ADDING BYTES 






MOVE.L D1(A3) SAVE RESULT MEMORY 


o 




MOVEM.L (SP)+,D0-D2/A0 RECOVER REGISTERS 


£ 


RTS AND LEAVE 




* SUBROUTINE TO SEND ERROR MESSAGE TO SCREEN 


o 


TOOBIG: 


SEND ERROR MESSAGE TO SCREEN 




* DATA 


AREA 


o 


INSTRING 


: 20 BYTES 




* 
* 




© 
»o 




AK 
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Flight Simulator II 

Miciocomputei Simulation 

At Its Best 

by Chris Williams 
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Approach for landing at Miegs Field 


Until now, simulations designed for 

microcomputers have been unexciting, original ends. performs very well while remaining 
crude approximations of whatever real- Flight Simulator was revolutionary easy to fly. It is, consequently, an 
life phenomenon they were trying to in its day. No one had done a flight excellent choice for the product, 
model. They were slow. They lacked simulation on a microcomputer before The simulation flight controls are 
detail. And all too often, the modeling Bruce Artwick, co-founder of SubLogic, on the keyboard. SubLogic includes 
equations employed were out-and-out worked his magic. The final product helpful cue-cards with the package that 
wrong. But no longer. A company ran reasonably well, but it was slow specify which keys do what. As a pilot, 
called SubLogic Corporation has seen and the graphics lacked pizazz. I found flying with keys instead of 
fit to single-handedly advance the Not so with Flight Simulator II. The a control yoke and rudder pedals 
state-of-the-art in microcomputer screen updates are faster and detailed disconcerting at first, but I soon 
simulation technology beyond its scenery for four different parts of the adjusted. At my request, other pilots 
childhood stage into exciting, energetic U.S. are included with the package, tried it and agreed the adjustment came 
adolescence. Additionally, the company advertises easy. A non-pilot would probably never 

SubLogic was the manufacturer of the availablility of scenery disks for notice. 
Flight Simulator, the first popular other areas of the U.S. It all makes for The layout of the keyboard is 
microcomputer flight simulation. It a degree of realism never before fascinating and all computerists 
was designed to run on a 16K Apple II, approached on a microcomputer. writing user-interactive routines could 
and it did so - more or less. Amid _ learn from it. The T,F,H,B diamond is 
relatively little fanfare, they've now Flight used as the control yoke of the aircraft, 
released a sequel designed for the newer The airplane modeled in Flight It's perfect for one hand operation and 
crop of Apples that sport 64K. There are Simulator II is a Piper PA-28-181 easily learned. 

also versions out for other machines. Archer II; a single engine, 148 mph., But it's in the use of the G key that 
They call it Flight Simulator II, but non-retractable gear general aviation something innovative has been added, 
there all similarity between sequel and aircraft. In real-life, the Archer II Whatever the value of the aileron 
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control variables (set by F and H), they 
are nulled to neutral with a single press 
of G. Without this, several key presses 
of either F or H would be necessary to 
return a given setting to zero. They 
gave this problem a lot of thought and 
came up with an excellent answer. 

Some of the most interesting 
features of the product are in 
the navigation and communications 
radios. Here the simulation uses cntl-C 
and cntl-N followed by greater-than or 
less-than signs to simulate changing a 
frequency. This is a good choice as cntl 
keys are generally a bit awkward. Why 
is that good? Because nothing in flying 
is as awkward as changing radio 
frequencies in turbulence. Making it 
difficult on the simulation is entirely 
appropriate. 

The Editor 

The product includes a particularly 
valuable feature called "The Editor". 
At any time during flight, a touch of the 
ESC key sends you to The Editor, and 
from there you can change the current 
flight situation to be anything you 
wish. 

The procedure is interesting and, 
again, programmers should take note. 
When you press the ESC key, a menu 
entitled "Simulation Control" is 
displayed. The menu is two pages long. 
Moving off the bottom of one page 
automatically sends you to the other. 
These two pages contain a list of 
simulation variables and their current 
values. By positioning the cursor at the 
proper variable line and entering a new 
value, the user can quickly change his 
situation without having to fly into it. 

There are two valuable applications 
for this feature. First is the ability to 
set North and East coordinates which 
allows the user to instantly change 
from, say, the Chicago scenery area to 
the Boston-N.Y. scenery area without a 
time consuming crossing of the 
intervening distance between. 

The second valuable application has 
to do with Critical Attitude Recovery. 
CAR is required by the FAA (Federal 
Aviation Administration) as an integral 
part of the instrument flight training 
curriculum for pilots attempting to add 
an instrument rating to their license. 
CAR is taught in an actual airplane, 
generally as follows. The student, 
wearing a hood to restrict his vision to 
the instrument panel, is told to close 
his eyes or cover them while the 
instructor takes control of the aircraft. 



The instructor then places the aircraft 
in an "unusual" or "critical" attitude. 
This is typically an extreme nose high 
or low configuration with a very steep 
bank included. 

After a few seconds delay (to let the 
gee-forces confuse the student's 
equilibrium), the instructor tells the 
student to open his eyes and, using no 
outside visual references (i.e., 
instruments only), recover the aircraft 
to normal, straight-and-level flight. 

The Editor allows a user to practice 
this procedure. Extreme values for the 
pitch, roll, and yaw variables can be 
entered at the Simulation Control 
menu and then, when the user exits 
Edit mode, he is faced with a critical 
attitude. Recovery technique is the 
same on the simulator as in real life so 
the exercise is excellent practice. 

The Weather 

Any pilot will tell you that the single 
most important factor in flying is the 
weather. Winds aloft, turbulence, and 
clouds often determine more about a 
flight than the pilot's wishes. 
Therefore, a simulation predicated on 
its accuracy in modeling real-life 
operation must have user variable 
weather. Naturally, Flight Simulator II 
does. 

This is another area where the 
computerist can learn from what 
SubLogic has done. They've devoted 
attention to detail and implemented 
features to promote realism even where 
it makes the programming complex. 
Having this sort of professional attitude 
is probably more important than sheer 
technical skill in producing excellence 
in a program. 

SubLogic handled the weather by 
allowing the user to define two layers 
of clouds and four of wind. Wind 
adjusts the airplane's ground speed for 
given airspeeds and clouds simply clear 
the screen to white when the airplane 
is at a blanketed altitude. With cloud 
bases set at about 500 feet, the airplane 
"breaks out" on an ILS (Instrument 
Landing System) instrument approach 
lined up nicely with the runway, 
making final descent and landing both 
easy and immensely satisfying. 

Incidently, when the #1 Nav. radio 
is tuned to the ILS frequency, the 
glideslope needle on the indicator 
becomes active. The Localizer needle 
acts as it does for all the VOR 
navigational beacons. The pilots 
reading this will appreciate the level of 



detail SubLogic is covering there. 

Turbulence is also permitted as a 
user-defined feature. Its effect is 
random motion of the instruments 
which makes the airplane harder to fly. 

Lastly, the user can specify a given 
season. The effect of this is to change 
the time of day when night falls. Oh 
yes, there's a night mode, and it is 
hairy. Would you have expected 
anything less? 

Seeing the World 

The reason most pilots love to fly is 
nowhere near as esoteric and romantic 
as they'd have you believe. It's really 
very simple. The higher you are, the 
more pleasant things you can see. 
Flight Simulator II was clearly designed 
with that in mind. The original Flight 
Simulator was a forward-looking 
simulation that had nothing of 
consequence to see in its database. This 
product allows the user to look in all 
directions by using a special key 
sequence. Such is the attention to 
detail that when you look out the rear 
window of the cabin, the rudder is 
superimposed on the screen as a thick 
vertical line. And, of course, when you 
look out the side, the wingtip is 
prominent at the bottom of the screen. 
There's another viewing mode 
included that is not realistic. It's called 
Radar Mode. In this mode, the user can 
get a top view of the world and an 
impression of where the airplane is 
with respect to landmarks. This is 
unavailable on a real airplane and 
therefore somewhat bizzare, but for 
users to whom flying is unfamiliar it 
probably is a valuable, perhaps even 
vital, feature. 

Emergency Procedures 

What do you do if the engine quits? 
That is the first question people new to 
single-engine flying ask. The answer 
(which I've found is always responded 
to with a chuckle] is to execute the 
emergency procedures all pilots are 
trained to perform. But there are also 
other emergencies in flying that a pilot 
can encounter. Flight Simulator II has a 
feature that will throw them all at a 
pilot randomly to see how he reacts. 
It's called the Reliability Factor. This is 
a number the user selects from the 
Editor's Simulation Control menu. 
Anything less than 100 percent here 
and things start to go wrong. The lower 
the number, the more they go wrong. 
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This is an excellent feature. The 
malfunctions modeled are often subtle 
and a pilot's inattention to his 
instruments can result in a simple 
problem becoming fatal. It's a good 
training aid in that it really brings 
home to the user the importance of 
staying sharp and alert. 

The Dogfight Game 

They call it World War I Ace, and since 
today's general aviation airplanes are 
similar in performance to World War I 
fighters, I suppose it was inevitable. As 
an option of the Simulation Control 
menu, the user may select the dogfight 
game and fly against enemy fighter 
aircraft. 

Actually, it's not bad. It's not 
simply a shoot 'em up. The user still 
has to fly his airplane properly and 
manuever into position in order to 
bomb ground targets or shoot down 
enemy fighters. If he fails to fly 
properly, the airplane will stall and 
crash, just as it would in the pure 
simulation mode. 

Rules of the game are standard; you 
get points for shooting fighters down or 
bombing fuel depots, and you lose 
points for getting shot. Additionally, 
your plane degrades in performance 
each time it gets hit. 

One rather interesting feature of 
the game is worth special mention 
because of its educational value to 
computerists. Unlike any actual World 
War I fighter, the one in this game has 
air-to-air radar. What this does is 
provide the user with information 
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concerning targets where no 
information would otherwise have 
been available. 

That is important because it 
demonstrates a flexibility on the part of 
SubLogic. They concentrated hard on 
realism throughout the product, but 
they didn't lose their ability to perceive 
the need for a feature that wasn't real. 
That's rare. I often see programmers 
who, once they learn to juggle 
assembly language routines, refuse to 
take advantage of those features of 
BASIC that simply cannot run any 
faster. That sort of locked-in attitude 
costs hours of programming time. One 
should guard against it. 



Conclusions 

This product is one of those that can be 
perceived as something special even 
before the marketplace has passed its 
judgement. As such, one feels 
compelled to examine it and determine 
what core characteristic makes it what 
it is and, further, what does it have in 
common with other software programs 
already acknowleged as masterpieces of 
design. 

Through this sort of analysis, 
programmers can remove a bit of the 
uncertainty in software design. They 
can find certain prerequisite things 
their programs must have to excel. 
They can make the process more of a 
science and less of an art. So what is it 
about Flight Simulator n? What is it 
that makes it superb? Is it something 
that can be emulated? 

My opinion is that the program was 
planned intricately, written intricately, 
and, most important, debugged 
intricately. That all comes down to one 
phrase - attention to detail. They 
covered everything. Frankly, most 
programs don't cover half of what they 
could — and therefore should. 
Programmers need to make a rule for 
themselves. This rule would say that 
on the day the "Finished!!" tag is hung 
on a program, an X is placed on the 
calendar for two weeks in the future. 
The programmer must continue testing 
and working on the program until that 
day. Just think of how many bugs 
would never find their way to market. 
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Graphic Print for Commodore 64 

(Part 1) 



by Michael J. Keryan 
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Editor's Note: This is part 1 of a three 
part series. Parts 2 and 3 will appear in 
subsequent issues. 

I i n r i n r i ni= 



Create a full-page printout from a Commdore 64 
high resolution display 



DEE 



The Commodore 64 is capable of 
displaying some pretty impressive 
graphics. Take a look at a few of the 
games recently introduced, like 
Neutral Zone, Blue Max, or Pogo Joe. 
Most sophisticated games use a high- 
resolution bit-mapped display rather 
than the alphanumeric/graphic-symbol 
display that most of you use for your 
programs. 

High-resolution bit-mapped 
graphics (and the multi-color variation) 
are described in the Commodore 64 
Programmer's Reference Guide. The 
manual even shows you how to create a 
display using PEEKs and POKEs. 
However, since several thousand 
memory locations are involved, BASIC 
is extremely slow. Any practical use of 
high resolution graphics must use 
machine language routines. Since most 



people are not familiar with assembly 
or machine language programming, 
quite a few graphic aid and drawing 
programs for the Commodore 64 have 
been developed. 

I was quite disappointed when I 
learned that pictures that were created 
on my Koala Pad could not be dumped 
to my printer. I also found that even 
though other graphic packages 
contained graphic dump routines, the 
resulting printouts were much less 
than perfect. Many routines give rather 
small drawings, one dot on the screen 
to one printed dot~this results in a 
picture a little smaller than 3 inches by 
4 inches. Many graphic dump routines 
use the Commodore 1525 graphic 
mode which can be emulated by a 
number of interfaces with non- 
Commodore printers, but this 



technique is very slow. The most 
serious fault of all of the routines I've 
seen is their inability to recognize a 
color on the screen and translate it to a 
pattern that is approximately the same 
darkness of the color. Most graphic 
dumps print, at most, 3 or 4 varying 
shades of black dots, even though one 
of the colors represented is white. 

Since a perfect graphic dump 
program wasn't available, I decided to 
write one. These were the objectives 
that I set for this program: 

1 . It will work in either standard HiRes 
or multi-color mode. 

2. Printouts should be large, about the 
same size as the display on my 
Commodore 1701 color monitor 
(approx. 7" x 9"). This will fit nicely 
on a normal sheet of paper with one 
inch borders on all sides. 
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Figure 1. Graphics Bit-Map Node 
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3. The dump routine should work on 
my printer as well as those of my 
friends. These include NEC 8023, 
Prowriter (C. Itoh), Epson MX-80 and 
FX-80, and Gemini (Star) printers. 
Sony 1525 owners, you're on your 
own. 

4. Fast--to get the needed speed to 
print a full page of graphics, the print 
commands should directly access the 
printhead (transparent interface 
operation). 

5. A unique dot pattern should be used 
for each of the 16 colors, so that any 
two adjacent colors can be distinguish- 
ed. Each pattern should vary in 
intensity roughly in proportion to the 
darkness of the color on the CRT. 
Needless to say, the program should be 
able to determine the color of each dot 
on the screen. 

6. Printouts of any part of the screen or 
the whole screen should be possible. 

7. Most important, the program 
should be able to access graphic 
displays made from a number of 
graphic aid and drawing programs. 

All of these objectives have been 
met and the resulting Assembly 
language program, GDUMP, is shown 
in Listing 1. The program is not 
especially compact; in fact, it uses 
quite a bit of memory for lookup tables. 
However, it works as per the above 
objectives and is the best graphic screen 
dump program that I have seen for the 
Commodore 64. 



High Resolution Bit Map 

Before describing how the program 
works, a short review of Commodore 
64 bit map graphics is helpful. The 
standard high resolution bit map screen 
of the 64 is divided into 320 dots 
horizontally and 200 dots vertically. 
Each dot corresponds to a bit in 
memory. Therefore, 320 x 200 = 64000 
bits, or exactly 8000 bytes of memory 
is required to hold this bit map pattern 
of ones (bit is on) and zeros (bit is off). 
Let's assume our bit map memory 
starts at $2000 hexadecimal (or 8192 



decimal). The order of the bytes in 
memory do not correspond to the 
manner in which the lines are scanned 
on the CRT-they are arranged in 8 byte 
blocks as shown in Figure 1 . 

Despite the fact that the bytes are 
arranged in memory a little strangely, 
you can see that the screen is made up 
of 320 bits across and 200 bits down. 
You can think of this as: when a bit is 
off (0) the corresponding dot will be off 
(black), and when a bit is on (1) the dot 
will be on (white). Many two-color 
screens are set up like this, but the 
HiRes screen (HIRES) is a little more 
complicated than this, as shown in 
Figure 2. For every 8 byte block of bit 
map memory (or every 8x8 dot square) 
there exists a corresponding one byte of 
screen memory. 

Let's assume this IK block of 
memory starts at $0400 (1024 
decimal). The colors of the foreground 
and background are picked up in the 
screen byte. The way one byte can hold 
two colors is by breaking the 8 bit byte 
into two 4 bit nibbles. With 4 bits, each 
nibble can hold a number from to 15, 
for one of the 16 colors. Therefore, for 
every 8x8 square of dots, the color 
displayed for any of these 64 dots can 
be found in the high nibble of the 
corresponding screen memory if the bit 
is on ( 1 ) and in the low nibble if the bit 
is off (0). Note that only two unique 
colors can be displayed in any 8x8 
block of dots, but an adjacent block can 
have any two other (or the same] 
colors. 



Figure 2. Memory - High-res Mode 
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Figure 3. Memory - Multicolor Node 
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Multi-Color Bit Map Mode 

If you thought the last section was 
difficult, you may as well skip this 
section right now. With the HIRES 
mode, there are two separate blocks of 
memory to worry about. In multi-color 
mode (MULTI) there are three blocks of 
memory, as shown in Figure 3. An 
additional IK block of memory 
(usually starting at $D800 or 55296 
decimal) is also used to store color 
information. In MULTI-color mode, 
the horizontal resolution is reduced to 
160 dots, half of that as HIRES mode. 
Actually, there are still 320 dots on the 
screen, but the color can only change 
for every two dots. In every two-dot 
sequence of the bit-map memory, we 
can get four possible patterns of bits: 
00, 01, 10, or 11. The pattern 
determines where the color for these 
two dots can be found. So in any 8x8 
square of dots, a total of 4 colors are 
possible. Three of these colors can be 
different for every 8x8 square, but one 
color is common to all squares-the 
sequence of two zeros calls for the color 
in the background color register $D02 1 . 

To get an accurate graphic screen 
dump, we must first determine the 
location of each bit in an BK bit-map 
block, and determine the corres- 
ponding colors from either the upper or 
lower nibble of screen memory, the 
lower nibble of color memory, or from 
the background color register. Each 
color must be translated to a unique 



pattern for a dot-matrix printer, and 
these patterns must be sent to the 
printer. A method is also required to 
duplicate dot patterns for grids larger 
than the original 320x200 dot grid. 

GDUMP 

The assembler (Listing 1) is com- 
mented, so you should be able to follow 
along, if you are familiar with machine 
language. The program is assembled to 
begin at $5000. There were very few 
memory areas left to put this code, 
when you want it to be compatible 
with the files containing graphic data 
from various third party routines. I 
decided to stick it right in the middle of 
your BASIC workspace. All the 
important constants were brought near 
the beginning to allow easy changes. 
The minimum and maximum hor- 
izontal and vertical byte numbers are 
located at $5003-$5006. The upper left 
of the screen is 0,0; the lower right is 
39,199. You can change these if you 
want only part of the screen printed 
(but you will also have to change 
N1-N4 and EN1-EN2 in GSETUP and 
ESETUP). 

There are four modes of operation: 

0. Mode is for two-color HIRES 
printouts. Every bit equal to 1 prints a 
2x2 black square. 

1. Mode 1 inverts the dots of mode 0. 
Bits that are equal to 1 print a 2x2 
white area; bits equal to print black 
dots. 



2. This is MULTIcolor mode in which 
colors are determined from one of four 
possibilities as in Figure 3. 

3. This is HIRES color mode in which 
colors are determined from either high 
or low nibbles of the screen memory as 
in Figure 2. 

The starting page number for the 
bit-map memory, screen memory, and 
color memory are stored in 
$5008-$500A. These can be changed 
from the defaults ($2000, $0400 and 
$D800] for non-standard screen 
configurations. 

The program begins by jumping to a 
printer setup routine. For TYMAC 
CONNECTION interfaces, an extra 
sequence is required before any other 
sequences. This is equivalent to 
CHR$(27J "W"CHR$(00|. It disables 
the width command in the interface 
and is necessary to disable printing a 
carriage return after 80 graphic bytes. 
The printer channel is opened with a 
secondary address which puts the 
interface into transparent mode (5 for 
CARDCO, 6 for CONNECTION). Next 
the correct codes are sent to change the 
printer spacing to 1/9 inch vertically, 
to eliminate blank spaces between 
lines. These sequences are different for 
NEC/C.ITOH and EPSON/GEMINI 
printers. Then a carriage return is sent 
to start the printer at a known state. 

Three loops can be found in the 
code: LOOPH, LOOPV and LOOPN. 
LOOPH cycles through the 40 
horizontal screen bytes. LOOPV cycles 
through the 200 vertical bytes. LOOPN 
cycles through the repeat counter REPT 
several times for each of the 200 lines. 
REPT is set up to 3 for NEC/C.ITOH 
and 2 for EPSON/GEMINI. This gives a 
total of 600 or 400 dots, respectively for 
the top to bottom CRT scan [left to 
right on the printer) . For both types of 
printers, this gives a line length of 
about 7 inches. Actually LOOPH is 
cycled through twice, since two dots 
are printed for every horizontal dot on 
the screen. If you follow through the 
logic in the area of LOOPN, you will 
see that every byte sent to the printer 
(for the 8 dots on the printhead) is made 
up of two 4 bit nibbles, each derived 
from a two-bit horizontal dot sequence 
on the screen. 

Subroutine CHKREV simply 
reverses the 8-bit pattern for EPSON 
type printers since the printhead is set 
up the opposite of NEC type print- 
heads. This routine also replaces every 
$0D bit pattern with $0B. For an 
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Listing 1 














© 


; GRAPHIC SCREEN DUMP VI. 2 


'} 










, M. J. KERYAN 3-27-84 


5028 IB 


ESPC 


BYT $1B 


;LINE SPACING 








5029 41 


EA 


BYT $41 


;OF 8/72 INCH 


O 


; TO BE USED WITH 'TYMAC 


CONNECTION' 


502A 08 


ENN1 


BYT $08 


;FOR EPSON TYPE 




• OR SIMILAR TYPE OF INTERFACE 


502B 0D 


ERET2 


BYT $0D 






AND PRINTERS- 












O 


NEC 8023, PROWRITER, 


C.ITOH 8510 


00FD 


PL 


EQU $FD 


; MEMORY USED FOR 


OR EPSON WITH GRAFTRAX OR 


00FE 


PH 


EQU $FE 


; INDIRECT 




EPSON COMPATIBLE PRINTER. 


, 






POINTERS 








502C 00 


DATA 


BYT 


; MEMORY REGISTERS 


© 






502D 00 


VBYT 


BYT 


;USED IN THIS 


5000 


ORG $5000 




502E 00 
502F 00 


HBYT 
NBYT 


BYT 
BYT 


; PROGRAM 


5000 4C 39 55 


1 GDUMP JMP GSTART 




5030 00 


TBYT 


BYT 




© 






5031 00 


NIBL 


BYT 




5003 FF 


MINH BYT $FF 


; HORIZ. MIN.-l 


5032 00 


DATAXX 


BYT 




5004 27 


MAXH BYT 39 


; HORIZ. MAX. 


5033 00 


DATAYY 


BYT 




A 5005 00 
^ 5006 C8 


MINV BYT 


; VERT. MIN. 


5034 00 


DATATM 


BYT 




MAXV BYT 200 


; VERT. MAX.+l 


5035 00 


COLORB 


BYT 




5007 03 


REPT BYT 3 


; REPEAT BYTES 


5036 00 


SCREEN 


BYT 




5008 20 


BMPG BYT $20 


BIT MAP PAGE # 


5037 00 


ETEMP1 


BYT 




© 5009 04 


SCPG BYT $04 


SCREEN PAGE # 


5038 00 


ETEMP2 


BYT 




500A D8 


CLPG BYT $D8 


COLOR PAGE # 


'} 








500B 00 


PTYPE BYT $00 


• PRINTER 


0071 


GFILE 


EQU $71 


; PRINTER FILE § 


© ; 


= NEC/C.ITOH 


TYPE — 


} 








1 = EPSON TYPE 




FFCC 


CLRCHN 


EQU $FFCC 


;KERNAL ROUTINES 


500C 06 


SECADR BYT $06 


SECONDARY 


FFC3 


CLOSE 


EQU $FFC3 




. 


(TRANSPARENT) 


ADDR 


FFBA 


SETLFS 


EQU $FFBA 




© 500D 00 


INTERF BYT $00 


INTERFACE 


FFBD 


SETNAM 


EQU $FFBD 




. 


= CONNECTION 


TYPE — 


FFC0 


OPEN 


EQU $FFC0 




. 


1 = OTHER 




FFC9 


CHKOUT 


EQU $FFC9 




500E 02 


MODE BYT $02 


MODE TYPE 


i 








© 






5039 20 21 52 


GSTART 


JSR SETUP 


;OPEN PORT, ETC. 




MODE = NORMAL HIRES I 


3/W 


503C AD 04 50 




IDA MAXH 






1 = INVERTED HIRE 


3 B/W 


503F 8D 2E 50 




STA HBYT 


;INIT. WIDTH 


© ; 


2 = MULTI-COLOR 




5042 A9 00 




IDA #$00 




3 = HIRES COLOR 




5044 8D 31 50 




STA NIBL 


; FIRST NIBBLE 








5047 AD 05 50 


LOOPH 


IDA MINV 




500F 0D 


GSETUP BYT $0D 


SET UP CARR RET 


504A 8D 2D 50 




STA VBYT 


;INIT. HEIGHT 


© 5010 20 
5011 20 


SP1 BYT $20 


AND 4 SPACES 


504D A0 00 




IDY #$00 




SP2 BYT $20 


FOLLOWED BY 


504F AD 0B 50 


OUTNUM 


IDA PTYPE 


; PRINTER TYPE 


5012 20 


SP3 BYT $20 


THE NEC/C.ITOH 


5052 D0 0D 




BNE 0UTN2 




5013 20 


SP4 BYT $20 


REQUIRED 


5054 B9 0F 50 


OUTN1 


IDA GSETUP, 


Y ; OUTPUT 


© 5014 IB 


ESC BYT $1B 


GRAPHIC CONTROL 


5057 20 CA Fl 




JSR $F1CA 


; GRAPHIC 


5015 53 


ES BYT $53 


SEQUENCE— 


505A C8 




INY 


; CONTROL CODES 


5016 30 


Nl BYT $30 


ESC, S, Nl, N2, 


505B C0 0B 




CPY #$06 


;FOR 1 LINE 


rt 5017 36 
^ 5018 30 


N2 BYT $36 


N3, N4 WHERE 


505D D0 F5 




BNE OUTN1 


;11 BITS 


N3 BYT $30 


N'S ARE 4 DIG. 


505F F0 0B 




BEQ LOOPV 




5019 30 


N4 BYT $30 


BYTE COUNT 


5061 B9 1A 50 


0UTN2 


IDA ESETUP 


Y ; OUTPUT 


. 






5064 20 CA Fl 




JSR $F1CA 


; GRAPHIC 


© 501A 0D 


ESETUP BYT $0D 


SET UP CARR RET 


5067 C8 




INY 


; CONTROL CODES 


501B 20 


ESP1 BYT $20 


AND 4 SPACES 


5068 C0 09 




CPY #$09 


;FOR 1 LINE 


501C 20 


ESP2 BYT $20 


FOLLOWED BY 


506A D0 F5 




BNE 0UTN2 


;9 BYTES 


501D 20 


ESP3 BYT $20 


THE EPSON 


506C AD 07 50 


LOOPV 


IDA REPT 




O 50ie 20 


ESP4 BYT $20 


REQUIRED 


506F 8D 2F 50 




STA NBYT 


;INIT. COUNTER 


501F IB 


EESC BYT $1B 


GRAPHIC CONTROL 


5072 A9 00 




IDA #$00 




5020 4B 


EK BYT $4B 


SEQUENCE— 


5074 8D 30 50 




STA TBYT 


; RIGHT BYTE 


© 5021 90 
5022 01 


EN1 BYT $90 


ESC, K, Nl, N2 


5077 20 B4 51 




JSR DATACL 




EN2 BYT $01 




507A 8D 2C 50 




STA DATA 




. 






507D AD 2C 50 


LOOPN 


IDA DATA 




5023 IB 


SPC BYT $1B 


LINE SPACING 


5080 29 03 




AND #$03 


; 00000011 


© 5024 54 


TEE BYT $54 


OF 16/144 INCH 


5082 20 0B 51 




JSR DATACO 


; CONVERT TO 


5025 31 


NN1 BYT $31 


FOR C.ITOH/NEC 


5085 29 0F 




AND #$0F 


;4 BITS 


5026 36 


NN2 BYT $36 




5087 8D 34 50 




STA DATATM 


;HOLD IT 


5027 0D 


RET2 BYT $0D 




508A AD 2C 50 




IDA DATA 
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508D 29 0C 


AND #$0C ; 00001100 


5129 18 


CLC 




508F 4A 


LSR A 


512A 90 0F 


BCC ONETWO 




5090 4A 


LSR A 


512C E0 03 ONE 


CPX #$03 ;TWO BITS = 11? 


o 


5091 20 0B 51 


JSR DATACO ;4 MORE BITS 


512E F0 IF 


BEQ THREE 




5094 0A 


ASL A 


5130 AD 36 50 


LDA SCREEN ;TWO BITS = 10 




5095 0A 


ASL A 


5133 E0 02 


CPX #$02 


o 


5096 0A 


ASL A 


5135 F0 04 


BEQ ONETWO 




5097 0A 


ASL A 


5137 4A HINIB LSR A 




5098 0D 34 50 


ORA DATATM ; COMBINE 8 BITS 


5138 4A 


LSR A 




509B 20 DB 50 


JSR CHKREV ; CHECK IF REVERSE 


5139 4A 


LSR A ;HIGH NIBBLE 


o 


509E 20 CA Fl 


JSR $F1CA ; OUTPUT BYTE 


513A 4A 


LSR A ; CONTAINS COLOR 




50A1 CE 2F 50 


DEC NBYT ;END OF REPEAT? 


513B 29 0F ONETWO AND #$0F 




50A4 F0 0B 


BEQ NEND 


513D AA 


TAX 


o 


50A6 AD 30 50 


LDA TBYT 


513E BD BE 52 


LDA TABCOL.X ;GET SHADE # 


50A9 49 01 


EOR #$01 ; TOGGLE BYTE # 


5141 AA GETCOD TAX 




50AB 8D 30 50 


STA TBYT 


5142 BD CE 52 


LDA TABCOD,X ;GET CODE 




50AE 18 


CLC 


5145 AE 30 50 


LDX TBYT 


o 


50AF 90 CC 


BCC LOOPN ; CONTINUE REPEAT 


5148 F0 04 


BEQ DATAE ; ALTERNATE LOW 




50B1 EE 2D 50 NEND INC VBYT 


514A 4A 


LSR A 


AND HIGH 




50B4 AD 2D 50 


LDA VBYT 


514B 4A 


LSR A 


NIBBLES OF 


o 


50B7 CD 06 50 


CMP MAXV ;END OF VERT.? 


514C 4A 


LSR A 


CODE 


50BA D0 B0 


BNE LOOPV ; CONTINUE VERT. 


514D 4A 


LSR A 




50BC AD 31 50 


LDA NIBL 


514E 60 DATAE RTS 




50BF 49 01 


EOR #$01 ; TOGGLE NIBBLE 


514F AD 35 50 THREE LDA COLORB ; COLOR IN COLOR 


o 


50C1 8D 31 50 


STA NIBL 


5152 18 


CLC ; MEMORY 




50C4 AD 31 50 


LDA NIBL 


5153 90 E6 


BCC ONETWO 




50C7 D0 0F 


BNE TOLPH 


5155 E0 00 HIR0 CPX #$00 ;BITS 00 




50C9 CE 2E 50 


DEC HBYT 


5157 D0 06 


BNE HIR3 


o 


50CC AD 2E 50 


LDA HBYT 


5159 AD 36 50 


LDA SCREEN ;USE LOWER 




50CF CD 03 50 


CMP MINH 


515C 4C 3B 51 


JMP ONETWO ; NIBBLE 




50D2 D0 04 


BNE TOLPH 


515F E0 03 HIR3 CPX #$03 ;BITS 11 


o 


50D4 20 98 52 


JSR SETDWN /UNDO SETUP 


5161 D0 06 


BNE HIR2 


50D7 60 


RTS 


5163 AD 36 50 


LDA SCREEN 


USE UPPER 




50D8 4C 47 50 TOLPH JMP LOOPH ; BRANCH TOO LONG 


5166 4C 37 51 


JMP HINIB 


NIBBLE 




i 




5169 E0 02 HIR2 CPX #$02 


BITS 10 


G 


50DB 8D 37 50 CHKREV STA ETEMP1 


516B D0 IB 


BNE HIR1 




50DE 8D 38 50 


STA ETEMP2 


516D AD 36 50 


LDA SCREEN ;GET UPPER 




50E1 AD 0B 50 


LDA PTYPE ;IF PRINTER IS 


5170 20 37 51 


JSR HINIB 




50E4 F0 IB 


BEQ PCR ; EPSON, THEN 


5173 20 A3 51 


JSR HIRC 


o 


50E6 A9 00 


LDA #$00 ; REVERSE DOT 


5176 0A 


ASL A ;DATA IN BITS 




50E8 8D 38 50 


STA ETEMP2 ; ORDER 


5177 0A 


ASL A ; **— 




50EB A0 08 


LDY #$08 


5178 8D 32 50 


STA DATAXX 


o 


50ED B9 F2 52 EP1 


LDA TABBIT-1,Y 


517B AD 36 50 


LDA SCREEN 


50F0 2D 37 50 


AND ETEMP1 


517E 20 3B 51 


JSR ONETWO 


GET LOWER 




50F3 F0 09 


BEQ EP2 


5181 20 A3 51 


JSR HIRC 


»» 




50F5 B9 FA 52 


LDA TABTIB-1,Y 


5184 0D 32 50 


ORA DATAXX 


COMBINE 


o 


50F8 0D 38 50 


ORA ETEMP2 


5187 60 


RTS 




50FB 8D 38 50 


STA ETEMP2 


5188 AD 36 50 HIR1 LDA SCREEN ;BITS 01 




50FE 88 EP2 


DEY 


518B 20 3B 51 


JSR ONETWO ;GET UPPER 


o 


50FF D0 EC 


BNE EP1 


518E 20 A3 51 


JSR HIRC 


5101 AD 38 50 PCR 


LDA ETEMP2 ; IF BIT CODE 


5191 0A 


ASL A ;DATA BITS 




5104 C9 0D 


CMP #$0D ;LS SAME AS 


5192 0A 


ASL A ; »*— 




5106 D0 02 


BNE PRET ;CARR RETURN, 


5193 8D 22 50 


STA DATAXX 


o 


5108 A9 0B 


LDA #$0B ; CHANGE IT 


5196 AD 36 50 


LDA SCREEN 




510A 60 PRET RTS 


5199 20 37 51 


JSR HINIB 


GET LOWER 








519C 20 A3 51 
519F 0D 32 50 


JSR HIRC 
ORA DATAXX 


*» 




} 

510B AA DATACO TAX ;X = 2 BITS 


COMBINE 


o 


510C AD 0E 50 


LDA MODE 


51A2 60 


RTS 




510F C9 02 


CMP #$02 ; < 2? 


5 






5111 B0 0B 


BCS D0 ;NO, GO ON 


51A3 48 HIRC PHA 


THIS ROUTINE 


o 


5113 BD DE 52 ZERONE IDA HICOD,X ;YES, OR 1 


51A4 29 03 


AND #$03 


AVERAGES THE 


5116 AE 0E 50 


LDX MODE 


51A6 8D 33 50 


STA DATAYY 


THE BITS 




5119 F0 02 


BEQ Dl 


J 






511B 49 0F 


EOR #$0F ; INVERT GRAPHICS 


51A3 48 HIRC PHA 


;THIS ROUTINE 


o 


511D 60 Dl 


RTS 


51A4 29 03 


AND #$03 


; AVERAGES THE 




511E C9 03 D0 


CMP #$03 JMODE 3? 


51A6 8D JJ 50 


STA DATAYY 


;THE BITS 




5120 F0 33 


BEQ HIR0 ;YES, HIRES COLOR 


51A9 68 


PLA 


** 




5122 E0 00 MULTI CPX #$00 ;TWO BITS = 00? 


51AA 4A 


LSR A 


;AND 


© 


5124 D0 06 


BNE ONE 


51AB 4A 


LSR A 


. ** 




5126 AD 21 D0 


LDA $D021 ; COLOR IN $D021 


51AC 29 03 


AND #$03 
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51AE 18 


CLC 








5231 20 BA FF 




JSR SETLFS ; 


TO AVOID EXTRA 




o 


51AF 6D 33 50 


ADC 


DATAYY 






5234 A9 00 




IDA #$00 ; 


CARR RETURNS 






51B2 4A 


LSR 


A 


; DIVIDE 


BY 2 


5236 20 BD FF 




JSR SETNAM 








51B3 60 

') 


RTS 








5239 20 C0 FF 
523C B0 56 




JSR OPEN 
BCS GCLOSE 






o 


51B4 AD 2D 50 DATACL IDA 


VBYT 


;GET MEMORY 


523E A2 71 




LDX #GFILE 








51B7 4A 


LSR 


A 






5240 20 C9 FF 




JSR CHKOUT 








51B8 4A 


LSR 


A 






5243 A9 IB 




IDA #$1B 






o 


51B9 4A 


LSR 


A 






5245 20 CA Fl 




JSR $F1CA 






51BA AA 


TAX 








5248 A9 57 




IDA #$57 








5 IBB BD FC 54 


IDA 


HCTAB,X 






524A 20 CA Fl 




JSR $F1CA 








51BE 85 FE 


STA 


PH 






524D A9 00 




IDA #$00 






o 


51C0 BD E3 54 
51C3 18 
51C4 6D 2E 50 
51C7 85 FD 


IDA 
CLC 
ADC 
STA 


LCTAB,X 

HBYT 
PL 






524F 20 CA Fl 
5252 A9 0D 
5254 20 CA Fl 
5257 A9 71 




JSR $F1CA 
IDA #$0D 
JSR $F1CA 
IDA #GFILE 






o 


51C9 90 02 


BCC 


CL3 






5259 20 C3 FF 




JSR CLOSE 








51CB E6 FE 


INC 


PH 






525C A9 71 


SET2 


IDA #GFILE 








51CD A5 FE CL3 


IDA 


PH 






525E AC 0C 50 




IDY SECADR 






o 


51CF 48 


PHA 








5261 A2 04 




LDX #$04 






51D0 18 


CLC 








5263 20 BA FF 




JSR SETLFS 








51D1 6D 09 50 


ADC 


SCPG 






5266 A9 00 




IDA #$00 








51D4 85 FE 


STA 


PH 






5268 20 BD FF 




JSR SETNAM 






o 


51D6 A0 00 


IDY #$00 






526B 20 C0 FF 




JSR OPEN 








51D8 Bl FD 


IDA 


(PL),Y 






526E B0 24 




BCS GCLOSE 








51DA 8D 36 50 


STA 


SCREEN 


; SCREEN MEMORY 


5270 A2 71 




LDX #GFILE 






o 


f 










5272 20 C9 FF 




JSR CHKOUT 






51DD 68 


PLA 








5275 A0 00 




IDY #$00 








5 IDE 18 


CLC 








5277 AD 0B 50 




IDA PTYPE 








51DF 6D 0A 50 


ADC 


CLPG 






527A D0 0C 




BNE OUTSP2 






© 


51E2 85 FE 
51E4 Bl FD 


STA 
IDA 


PH 
(PL),Y 






527C B9 23 50 
527F 20 CA Fl 


OUTSP 


IDA SPC,Y 
JSR $F1CA 








51E6 8D 35 50 

} 


STA 


COLORB 


COLOR ! 


MEMORY 


5282 C8 

5283 C0 05 




INY 

CPY #$05 






© 


51E9 AC 2E 50 
51EC AE 2D 50 


IDY 
LDX 


HBYT 
VBYT 






5285 D0 F5 
5287 60 




BNE OUTSP 
RTS 








51EF BD 03 53 


IDA 


LTAB,X 






5288 B9 28 50 


OUTSP2 


IDA ESPC.Y 






o 


51F2 85 FD 


STA 


PL 






528B 20 CA Fl 




JSR $F1CA 






51F4 BD CB 53 


IDA 


HTAB,X 






528E C8 




INY 








51F7 85 FE 


STA 


PH 






528F C0 04 




CPY #$04 








51F9 B9 93 54 


IDA 


LTABA,Y 






5291 D0 F5 




BNE 0UTSP2 






o 


51FC 18 


CLC 








5293 60 




RTS 








51FD 65 FD 


ADC 


PL 






5294 20 98 52 


GCLOSE 


JSR SETDWN 








51FF 85 FD 


STA 


PL 






5297 60 




RTS 








5201 90 02 


BCC 


CL1 






') 








: 


o 


5203 E6 FE 


INC 


PH 






5298 A9 0D 


SETDWN 


IDA #$0D 


CARR RETURN 






5205 B9 BB 54 CL1 


IDA 


HTABA.Y 






529A 20 CA Fl 




JSR $F1CA 








5208 18 


CLC 








529D A9 0C 




IDA #$0C 


FORM FEED 




© 


5209 65 FE 


ADC 


PH 






529F 20 CA Fl 




JSR $F1CA 






520E 85 FE 


STA 


PH 






52A2 A9 IB 




IDA #$1B 


LINE SPACING 






520D 18 


CLC 








52A4 20 CA Fl 




JSR $F1CA 


BACK TO 1/6 IN. 






520E 6D 08 50 


ADC 


BMPG 






52A7 AD 0B 50 




IDA PTYPE 






o 


5211 85 FE 


STA 


PH 






52AA D0 04 




BNE EPCL 








5213 A0 00 


IDY #$00 






52AC A9 41 




IDA #$4l 


ESC A FOR NEC/ 






5215 Bl FD 


IDA 


(PL),Y 






52AE D0 02 




BNE LSPC 


OR C. ITOH 




o 


5217 AE 31 50 


LDX NIBL 






52B0 A9 32 


EPCL 


IDA #$32 


ESC 2 FOR 




521A F0 04 


BEQ 


CL2 






52B2 20 CA Fl 


LSPC 


JSR $F1CA 


EPSON 






521C 4A 


LSR 


A 






52B5 20 CC FF 




JSR CLRCHN 








521D 4A 


LSR 


A 






52B8 A9 71 




IDA #GFILE 






o 


521E 4A 


LSR 


A 






52BA 20 C3 FF 




JSR CLOSE 








521F 4A 


LSR 


A 


;ACCUM 


= BIT MAP 


52BD 60 




RTS 








5220 60 CL2 


RTS 




;BYTE 




') 












t 










52BE 0F TABCOL 


BYT 15,0,11,3,10,7 


12,1 




o 


5221 A9 71 SETUP IDA 


#GFILE 






52C6 08 


BYT 


8,14,5,13,9,2,1 


5,4 






5223 20 C3 FF 


JSR 


CLOSE 






52CE 00 TABCOD 


BYT 


$00, $20, $04, $2! 


I 






5226 AD 0D 50 


IDA 


INTERF 






52D2 0A 


BYT $0A,$25,$4A,$A 






© 


5229 D0 31 


BNE 


SET2 






52D6 69 


BYT $69,$87,$2D,$A' 


7 




522B A9 71 


IDA #GFILE 


;FOR CONNECTION, 


52DA 6D 


BYT $6D,$DB,$9F,$F 


a 






522D A0 00 


IDY #$00 


; WIDTH MUST BE 


52DE 00 HICOD 


BYT 


$00,$03,$0C,$0 


a 






522F A2 04 


LDX 


#$04 


;SET TO 


ZERO TO 


52E2 28 AUTHOR 


BYT 


'(C) M.KERYAN 


L984' 
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unexplainable reason, my printer- 
interface would print two $0D patterns 
for every one sent ; messing up the 600 
byte counter. Instead of tracking down 
the reason for this, I eliminated any 
chance for this glitch to occur. 

At the beginning of every line a 
carriage return is sent, followed by 4 
spaces (to center the drawing), then a 
code is sent to set up the printer to 
accept the correct number of graphic 
characters (600 or 400 as explained 
above). These are the labeled GSETUP 
and ESETUP. 

Subroutine DATACL returns the 
contents of three memory cells, based 
on the current horizontal and vertical 
coordinates: the SCREEN memory, the 
COLOR memory and the bit-map 
memory in the accumulator. To avoid 
confusing calculations and to speed 
things up a bit, lookup tables are used 
extensively in this routine. 

Subroutine DATACO is entered 
with the lower two bits of the 
accumulator equal to two bits from the 
bit-map memory. When finished, this 
routine returns with a four bit matrix 
pattern that eventually gets sent as half 
of a byte to the printhead. This routine 
works differently for the four modes of 
operation. In modes and 1, simple 4 
bit patterns duplicate (or invert) the 
original 2 bit sequence. In modes 2 and 
3, the correct colors are determined. 
Then unique patterns are found 
through lookup tables TABCOL and 
TABCOD. Note that each of the 16 
colors are associated with two different 
4 bit patterns— the high and low nibbles 
of TABCOD. These two different codes 
are alternately used when the same 
byte is repeated to avoid vertical lines 
on the printed. 

After the picture is printed, 
SETDWN sends a carriage return and a 
form feed to the printer and then 
changes the line spacing back to 1/6 
inch for normal printer operation. 

GDUMP can be run by your BASIC 
programs by POKEing the required set- 
up parameters into the area in the 
beginning of the program, then SYS 
20480. Next month we'll continue this 
series by adding another small machine 
language program and a BASIC program 
that will allow GDUMP to print 
pictures made from SIMONS' BASIC, 
ULTRABASIC-64, DOODLE, KOALA- 
PAINTER and TPUG's SLIDESHOW. 
For those of you who don't have an 
Assembler to enter GDUMP, MICRO 
will provide these programs on 1541 
disks for $15 (US). Order MicroDisk 
No. MD-4. JMCRO 



52F3 80 
52FB 01 
5303 00 
530B 40 
5313 80 
531B C0 
5323 00 
532B 40 
5333 80 
533B C0 
53^3 00 
534B 40 
5353 80 
535B C0 
5363 00 
536B 40 
5373 80 
537B C0 
5383 00 
538B 40 
5393 80 
539B C0 



00 
40 
80 
C0 
00 
00 
01 



53A3 
53AB 
53B3 
53BB 
53C3 
53CB 
53D3 
53DB 02 
53E3 03 
53EB 05 
53F3 06 
53FB 07 
5403 08 
540B 0A 
5413 0B 
541B 0C 
5423 0D 
542B 0F 
5433 10 
543B 11 
5443 12 
544B 14 
5453 15 
545B 16 
5463 17 
546B 19 
5473 1A 
547B IB 
5483 1C 
548B IE 
5493 00 
549B 40 
54A3 80 
54AB C0 
54B3 00 
54BB 00 
54C3 00 
54CB 00 
54D3 00 
54DB 01 
54E3 00 
54EB 40 
54F3 80 
54FB C0 
54FC 00 
5504 01 
550C 02 
5514 03 
5515 



40 20 
02 04 
01 02 

41 42 
81 82 
CI C2 
01 02 
41 42 
81 82 
CI C2 
01 02 
41 42 
81 82 
CI C2 
01 02 
41 42 
81 82 
CI C2 
01 02 
41 42 
81 82 
CI C2 
01 02 
41 42 
81 82 
CI C2 
01 02 

00 00 

01 01 

02 02 

03 03 

05 05 

06 06 

07 07 

08 08 
0A 0A 
0B 0B 
0C 0C 
0D 0D 
0F 0F 

10 10 

11 11 

12 12 

14 14 

15 15 

16 16 

17 17 
19 19 
1A 1A 
IB IB 
1C 1C 
IE IE 
08 10 
48 50 
88 90 
C8 D0 
08 10 
00 00 
00 00 
00 00 

00 00 

01 01 
28 50 
68 90 
A8 D0 

00 00 

01 01 

02 02 



TABBIT 
TABTIB 
LTAB 



HTAB 



LTABA 



HTABA 



LCTAB 



HCTAB 



BYT $80, $40, 
BYT $01, $02, 
BYT $00, $01, 
BYT $40, $41, 
BYT $80, $81, 
BYT $C0,$C1, 
BYT $00, $01, 
BYT $40, $41, 
BYT $80, $81, 
BYT $C0,$C1, 
BYT $00, $01, 
BYT $40, $41, 
BYT $80, $81, 
BYT $C0,$C1, 
BYT $00, $01, 
BYT $40, $41, 
BYT $80, $81, 
BYT $C0,$C1, 
BYT $00, $01, 
BYT $40, $41, 
BYT $80, $81, 
BYT $C0,$C1, 
BYT $00, $01, 
BYT $40,$4l, 
BYT $80, $81, 
BYT $C0,$C1, 
BYT $00, $01, 
BYT $00, $00, 
BYT $01, $01, 
BYT $02, $02, 

byt m,w, 

BYT $05, $05, 
BYT $06, $06, 
BYT $07, $07, 
BYT $08, $08, 
BYT $0A,$0A, 
BYT $0B,$0B, 
BYT $0C,$0C, 
BYT $0D,$0D, 
BYT $0F,$0F, 
BYT $10, $10, 
BYT $11, $11, 
BYT $12, $12, 
BYT $14,$14, 
BYT $15, $15, 
BYT $16, $16, 
BYT $17, $17, 
BYT $19, $19, 
BYT $1A,$1A, 
BYT $1B,$1B, 
BYT $1C,$1C, 
BYT $1E,$1E, 
BYT $00, $08, 
BYT $40, $48, 
BYT $80, $88, 
BYT $C0,$C8, 
BYT $00, $08, 
BYT $00, $00, 
BYT $00, $00, 
BYT $00, $00, 
BYT $00, $00, 
BYT $01, $01, 
BYT $00, $28, 
BYT $40, $68, 
BYT $80,$A8, 
BYT $C0 
BYT $00, $00, 
BYT $01, $01, 
BYT $02, $02, 
BYT $03 
END 



$20, $10, 
$04, $08, 
$02, $03, 
$42, $43, 
$82, $83, 
$C2,$C3, 
$02, $03, 
$42, $43, 
$82, $83, 
$C2,$C3, 
$02, $03, 
$42, $43, 
$82, $83, 
$C2,$C3, 
$02, $03, 
$42, $43, 
$82, $83, 
$C2,$C3, 
$02, $03, 
$42, $43, 
$82, $83, 
$C2,$C3, 
$02, $03, 
$42, $43, 
$82, $83, 
$C2,$C3, 
$02, $03, 
$00, $00, 
$01, $01, 
$02, $02, 

$05, $05, 
$06, $06, 
$07, $07, 



$0A,$0A, 
$0B,$0B, 
$0C,$0C, 
$0D,$0D, 
$0F,$0F, 
$10, $10, 
$11, $11, 
$12, $12, 
$14, $14, 
$15, $15, 
$16, $16, 
$17, $17, 
$19, $19, 
$1A,$1A, 
$1B,$1B, 
$1C,$1C, 
$1E,$1E, 
$10, $18, 
$50, $58, 
$90, $98, 
$D0,$D8, 
$10, $18, 
$00, $00, 
$00, $00, 
$00, $00, 
$00, $00, 
$01, $01, 
$50, $78, 
$90,$B8, 
$D0,$F8, 



$08, $04 
$10, $20 
$04, $05 
$44, $45 
$84, $85 
$C4,$C5 
$04, $05 
$44, $45 
$84, $85 
$C4,$C5 
$04, $05 
$44, $45 
$84, $85 
$C4,$C5 
$04, $05 
$44, $45 
$84, $85 
$C4,$C5 
$04, $05 
$44, $45 
$84, $85 
$C4,$C5 
$04, $05 
$44, $45 
$84, $85 
$C4,$C5 
$04, $05 
$00, $00 
$01, $01 
$02, $02 

m,m 

$05, $05 
$06, $06 
$07, $07 
$08, $08 
$0A,$0A 
$0B,$0B 
$0C,$0C 
$0D,$0D 
$0F,$0F 
$10, $10 
$11, $11 
$12, $12 
$14, $14 
$15, $15 
$16, $16 
$17, $17 
$19, $19 
$1A,$1A 
$1B,$1B 
$1C,$1C 
$1E,$1E 
$20, $28 
$60, $68 
$A0,$A8 
$E0,$E8 
$20, $28 
$00, $00 
$00, $00 
$00, $00 
$00, $00 
$01, $01 
$A0,$C8 
$E0,$08 
$20, $48 



,$02, $01 
,$40, $80 
,$06, $07 
,$46, $47 
,$86, $87 
,$C6,$C7 
,$06, $07 
,$46, $47 
,$86, $87 
,$C6,$C7 
,$06, $07 
,$46, $47 
,$86, $87 
,$C6,$C7 
,$06, $07 
,$46, $47 
,$86, $87 
,$C6,$C7 
,$06, $07 
,$46, $47 
,$86, $87 
, $C6,$C7 
,$06, $07 
,$46, $47 
,$86, $87 
,$C6,$C7 
,$06, $07 
,$00, $00 
,$01, $01 
,$02, $02 

,m,m 

,$05, $05 
,$06, $06 
,$07, $07 
,$08, $08 
,$0A,$0A 
,$0B,$0B 
,$0C,$0C 
,$0D,$0D 
,$0F,$0F 
,$10, $10 
,$11, $11 
,$12, $12 
,$14,$14 
,$15, $15 
,$16,$16 
,$17, $17 
,$19, $19 
,$1A,$1A 
,$1B,$1B 
,$1C,$1C 
,$1E,$1E 

,%30,%3& 
,$70, $78 
,$B0,$B8 
,$F0,$F8 
,$30, $38 
,$00, $00 
,$00, $00 
,$00, $00 
,$00, $00 
,$01, $01 
,$F0,$18 
,$30, $58 
,$70, $98 



© 
© 



© 



$00, $00, $00, $00, $00, $01 
$01,$01,$01,$02,$02,$02 
$02, $02, $03, $03, $03, $03 



© 
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INTERFACE CLINIC: 

Communication Between Different 

Computers 

How to merge several computers into one efficient 
system 



A few columns ago I answered a letter 
query about communication between 
different computers. Here's another 
example: I have two Radio Shack Color 
Computers and one Commodore 64, 
but only one printer (EPSON MX-80). 
The 64K Color Computer is in use 
constantly, mostly as a word processor; 
the 32K (home brew) Color Computer 
is usually idle. Both computer systems 
(computer, disk, cassette and display) 
are plugged into separate power strips. 
Thus, each system is individually 
controllable. In order to drive the 
printer from the Color Computer using 
standard software, the EPSON switch 
SW2 needs to be set to 0000. For 
the Commodore, using a "The 
Connection" serial interface, the 
settings must be 0010. Thus, whenever 
I print from the other computer, I must 
move the printer power cord to the 
other power strip, open the printer case 
and move one switch, and connect the 
other drive cable. The C-64 printer 
interface has a 2K buffer, but the Color 
Computer interface has no buffer. All 
my writing is done using 
ELITE* WORD, and I often must wait 



for one file to print out before working 
on another. 

Obviously, things would go better if 
I had a large printer buffer to capture 
several pages of data and print it while I 
work on another file. Figure 1 shows 
how to merge my existing computers 
into a single, more efficient system. 
The printer and the 32K CoCo will be 
powered from a third power strip which 
turns on when either or both the other 
systems are active. A special interface 
board for the CoCo will have a serial 
input from the 64K CoCo printer port 
and a parallel input from the C-64 
system. A separate parallel output will 
drive the printer. Either computer will 
be able to direct output to the printer. 
If the printer is busy, the requesting 
computer will have to wait as usual. I 
expect that 28K of memory would be 
available in the 32K CoCo after 
allowing for display memory, stack and 
controller program workspace. 28K of 
buffer is enough for more than 15 pages 
of double-spaced text, which exceeds 
any need I have had so far. 



cannaDQRe at 



i> 



PARALLEL INPUT 

5£K coca 



SEIflAL IMPUT 

PARALLEL OUTPUT 



EPSON HX-40 



Figure 1. A special network connection will allow two computers to 
feed a third computer which will serve as a printer buffer. 



by Ralph Tenny 



Let me share some of my 
philosophy used in designing this 
system. Three primary considerations 
were involved: first, the new system 
should be compatible with commercial 
software running on both the 64K 
CoCo and the C-64. Primarily, that 
means no special printer drivers will be 
written for any commercial software. 
Second, the expansion will be modular. 
As I complete some part of the task, 
an improvement in system efficiency 
will result. Finally, no internal 
modifications will be made to either 
the 64K CoCo or the C-64. All these 
considerations are met by the 
(apparently) clumsy plan to configure 
the 32K CoCo interface to respond to 
either of the other computers as if it 
were a printer. That is, the input 
interfaces will handshake with the 
driver computers exactly as does the 
existing printer interface. Software 
options for straight-through printing or 
formatting by the 32K CoCo will be 
written. 

At some future time, I may consider 
eliminating the "Connection" 
interface; most commercial software 
uses the Commodore serial port. To 
eliminate this interface would require 
hours of experimentation and study, 
designing an interface to convert from 
Commodore serial to RS-232 format, 
and there isn't time or need for that. 
The C-64 claims to have an RS-232 
serial port available, but this requires 
a special output interface. Also, much 
commercial software for the C-64 does 
not support this port which is 
implemented by simulating a 6850 
ACIA in software. Finally, the data 
transfer rate of the serial port is faster 
than the RS-232 transfer rate. 

I am beginning to implement this 
printer buffer system as outlined above. 



30 



MICRO 



No. 73 - July 1984 



Due to various time pressures, the 
conversion will need to be made in 
several phases. Each phase will be 
reported in the column as the work is 
performed. A separate problem had to 
be solved first. The 32K CoCo must be 
capable of booting (starting up] 
unaided, so it must have an autostart 
ROM in the expansion (cartridge) port. 
I have an EPROM programmer for the 
C-64, along with 6502 development 
software which will handle the 
Commodore programming required. 
My 6809 development software has no 
way to send 6809 code to the C-64 
programmer. The temporary link 
between the CoCo and the C-64 is 
presented this month; probably, the 
CoCo expansion interface will follow 
next month. 

The simplest way to transfer data 
between dissimilar computers is to use 
a standard data rate and interface at the 
transmitting computer. If the software 
and hardware at the receiving computer 
is fast enough to capture the data as it 
comes, no handshake is needed. For 
this one-way data flow, the CoCo/C-64 
interface can be a one-transistor level 
translator and inverter (Figure 2). Rl 
and Dl limit base drive to Ql, while 
Ql and R2 drive PB7 of the 



Commodore User Port. The CoCo 
printer port incorporates a BUSY* 
signal, so a third wire is needed to feed 
back a high level ("not busy") to the 
serial in-line. 

The program listing is a rudi- 
mentary data input program which ser- 
vices the interface of Figure 2. Figure 3 
shows the flowchart for the program, 
which assembles incoming serial data 
into bytes and saves the data in 
sequential locations beginning at 
$2000. Since the C-64 has a timer 
available, complicated bit timing is not 
needed. Using a timer means that less 



experimentation is needed to get the 
timing correct. Instead of counting 
down a software loop, the CPU polls 
the CIA Interrupt Status bit to learn 
when the timer has finished. 

For those who need the review, 
Figure 4 shows how the 8-bit serial 
asychronous data is formatted. A Start 
bit (TTL low level) is sent first, 
followed by eight data bits which may 
be either low or high. At least one Stop 
Bit (high level) is sent to complete the 
transmission of a single byte. Note that 
Radio Shack 1.0 BASIC sends only 
seven bits with one Stop bit; later 



BUS? . 

CD DP. SERIAL IN 



.PIN 2 



P:Z - Ik 



Rl - 10k , * 

SERIAL DUT — •V-.-'v V T HI - 
Dl T r * 



-.PIN k 



CDCD CDHflDN 



IN 3 It 



NPN 



-Hi PIN 1 



Figure 2. Two resistors, a diode and one transistor make up a data 
transmitter to send data from the Color Computer to the Commodore 
64 (see text). 



Announcing . . . TOTL. MONEYMINDER 



FOR THE COMMODORE 64' 



The home accounting package that will make 
your budget, not break it! ONLY $39.95 



/ssSir 



u 



aSffw?5s- 



Business 
-fffome 



Money-Saving 

Bonus Paks 

of 64 Software 



(BP-1)— (disk) 
totl.text/ 

totl.speller/totl. label 
reg. price $103 NOW $79 

(BP-2)— (disk) 
totl. business/ 
totl time manager/ 
totl.infomaster/totl.text 
reg. price $228 NOW $159 

(BP-3)— (disk) 
totl.infomaster/ 
totl.text/totl.speller 
reg. price $129 NOW $99 

(BP-4)— (disk) 
totl.text/ 
totl. speller/ 
research assistant 

reg. price $118 NOW $89 
(BP-5)— (tape) 
totl. text/totl. label 
reg. price $60 NOW $49 

Commodore 64 and VIC 20 are trademarks ot 
Commodore Business Machines Inc. 



INFORMATION AND ORDER COUPON 



TOTL.TEXT 2.0 (VIC + 8K) 
TOTL.TEXT 2.5 (VIC +16K) 
TOTL. LABEL2.1 (VIC + 16K) 
TOTL TIME MGR. 2.1 (VIC + 8K) 
RESEARCH ASST. 2.0 (VIC + 8K) 
TOTL.BUSINESS 3.0(VIC + 24K) 
TOTL.TEXT 2.6 (C-64) 
TOTL.SPELLER 3.6 (-C64) 
TOTL.LABEL2.6(C-64) 
TOTL TIME MGR. 2.6 (C-64) 
RESEARCH ASST. 2.0 (C-64) 
TOTL.INFOMASTER 3.6 (C-64) 
TOTL.BUSINESS 3.6(C-64) 
TOTL.MONEYMINDER 3.6 (C-64) 
BONUS PAK # 



TAPE 

□ 24.95 
D 34.95 
D 19.95 
O 29.95 
D 29.95 

Q 39.95 

19.95 
n 34.95 



DISK 

n 28.95 
D 38.95 
D 23.95 
D 33.95 
D 33.95 
D 84.95 

□ 43.95 
D 34.95 

□ 23.95 
a 38.95 

D 34.95 D 38.95 

G 49.95 

D 94.95 

D 39.95 



Check, Money Order or 
C.O.D.' also accepted. 
*C.O.D.orders$2 00 
additional (CA residents 
add 6Vj% sales tax) 



Total . 

CO D. Charges/Sales Tax . 

Shipping & Handling . 

Amount Enclosed . 



$3.00 



FOR ORDERING ONLY-CALL OUR TOLL FREE NUMBERS 
Continental U.S. 1-800-351-1555, California 1-800-351-1551 
Hawaii and Alaska 415-943-7877 
□ SEND MORE INFORMATION (no charge lor catalog) 
Name 



Zip- 



Phone ( ) _ 
Card » 



_ DMC nviSA 
Exp. 
Date 



TUTL 



quality you can afford 
1555 Third Avenue 
Walnut Creek, CA 94596 
SOFTWARE, IMC 415/943-7877 
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T 



Figure 3. This flow chart 
describes the program 
listing for the Commodore 
to receive data from the 
Color Computer. 



iTflET 
BIT 



EIGHT DflTH BITS 



?TDP 



BIT 



Figure 4. This diagram illustrates a typical binary data byte as 
transferred by the circuit of Figure 2. 



versions send eight data bits and one 
Stop bit. 

Refer to Figure 3 and Listing 2 for 
the following discussion. NEW 
initializes various locations and the 
program waits for Bit 7 to go low. GET 
performs a 6502 BIT test which sets the 
N Flag equal to Bit 7. Until the Start bit 
takes PB7 low, the BMI test forces the . 
testing to continue. When the Start bit 
arrives, the half -bit delay is called to be 
sure the input is still low. This test 
provides noise rejection only. If the line 
is still low (valid start bit), INBIT calls 
a one-bit delay. This allows time for 
the first data bit to arrive and settle. 
Next, the incoming data is captured 
and a test for eight bits received is 
made. The loop is executed eight 
times, until SAVX becomes zero. 





.■;:.:.. : : ^; ^*X^X:; :; V:-.--.' 






Listing 1 


5 REM DATA TRANSFER IN BINARY 


o 




10 FOR X=49152 TO 49168 
20 H0=PEEK(X) 
30 PRINT#-2,CHR$(H0); 
40 NEXT 


o 




42 REM CHECKSUM COMPUTATION 

45 AT=l:LM=65536 

50 FOR X=49152 TO 49168 


o 




60 A=PEEK(X) 




70 AT=AT+A 






80 IF AT> LM THEN AT=AT-LM 






90 NEXT X 


o 




100 PRINT' 'CHECKSUM = " ,AT 


o 


Listing 2 




o 




; THIS PROGRAM IMPLEMENTS A TTL 




; LEVEL SERIAL INPUT PORT ON THE 






; COMMODORE 64 COMPUTER WHICH WILL 






; INPUT AND STORE BINARY DATA 


o 




; EQUATES 




DD00 


APORT EQU $DD00 ; CIA REGISTERS 




DD01 


BPORT EQU APORT+1 


o 


DD02 


ADDR EQU APORT+2 




DD03 


BDDR EQU APORT+3 




DD04 


TMRALO EQU APORT+4 


o 


DD05 


TMRAHI EQU APORT+5 


DD06 


TMRBLO EQU APORT+6 



32 



MICRO 



Incoming data appears on PB7. The 
LDA BPORT reads all eight bits, but Bit 
7 is stripped off by shifting the bit into 
the Carry Bit. Then the Carry Bit is 
shifted into the location named 
WORD. After eight bits have been 
received, DUMP saves the assembled 
data byte into the next sequential 
buffer location and increments the 
pointer. When the Y Index "rolls over" 
from $FF to $00, the location PAGE, 
which is the high order byte of the 
buffer address, is incremented. This 
way, the transferred data can be as large 
as necessary up to $8000 (32768) bytes. 
Special Note: The listing was 
assembled at $3000 to avoid destroying 
the Editor package at SC000. In normal 
use, this program is intended to reside 
at $C000, thus providing $8000 bytes 
of data buffer. Otherwise, only $1000 
(4096) bytes of buffer is available with 
Listing 2. 

SKIP makes sure the CIA Interrupt 
Status bit is clear before a full-bit delay 
is called. After the delay, control 
returns to FIX to test for the next Start 
bit. The delay routine is called once 
(enter at HLFBIT) for a one-half bit 
delay, or twice (enter at FULBIT) for a 
one bit delay. The timer is started and 
the Timer A Interrupt Status Bit (Bit 
in the CIA Interrupt Register) is 
repeatedly polled. When this bit goes 
high, the timer has timed out, so the 
RTS causes normal program operation 
to resume. There is a special caution 
regarding use of the CIA timers. Timer 
A can be operated in the free-running 
mode to allow generation of arbitrary 
waveforms for special purposes. The 
one-shot mode, as demonstrated here, 
should always be used for normal 
timing. This mode selection is shown 
controlled by the assignments for 
TMRNIT and TMROFF. 

This program is intended to be 
loaded and operated under control of 
HESMON 64 or another debug 
monitor; the RESTORE key forces a 
stop. CoCo can send data using a 
simple BASIC program. Data integrity 
can be verified by using another BASIC 
program to checksum the data in CoCo 
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and the same program to checksum the 












data in C-64 memory. A more 


DD07 


TMRBHI 


EQU APORT+7 






"automatic" data transfer would 


DD0D 
DD0E 


CIA2IR 
TMRACR 


EQU AP0RT+$D 
EQU AP0RT+$E 




o 


require far more programming, so this 


DD0F 


TMRBCR 


EQU AP0RT+$F 






simpler approach is a good 












compromise. 




; CONSTANTS 




o 


The BASIC program, Listing 1, will 


0009 


TMRNIT 


EQU $09 


TIMER ON/ONE SHOT 




transfer binary data between a CoCo 


0008 


TMR0FF 


EQU $08 


TIMER OFF 




and a C-64 and checksum the data at 


002C 


BAUDL0 


EQU $2C 


TIMER VALUE FOR 




both ends. Lines 10-40 send the data 


0003 


BAUDHI 


EQU $03 


600 BAUD 


o 


across to the C-64 which receives the 




J 








data with the program in Listing 2. 
Compute the CoCo memory checksum 
before or after sending data by typing 


007C 
007E 
007F 


; BUFFERS 
SAVA EQU $7C 
SAVX EQU $7E 
SAVY EOU $7F 




o 


"GOTO 45". Lines 45 100 of the same 


0080 


POINTR 


EQU $80 


DATA BUFFER POINTER 




program, entered into the C-64, will 


0081 


PAGE 


EQU P0INTR+1 


BUFFER HI BYTE 


o 


compute the checksum after the 


0082 


WORD 


EQU POINTR+2 


INPUT SCRATCH BYTE 




transmission. Note that line 10 




t 








specifies addresses 49152-49168 


3000 




ORG $3000 






|$COOO-$C010), which happens to be 




; MAIN PROGRAM 




o 


the first 16 bytes of the expansion area 


3000 A9 08 


NEW 


LDA #TMR0FF 


INSURE TIMER OFF 




(Disk BASIC for CoCo if you have a 


3002 8D 0E DD 




STA TMRACR 






disk] . Obviously, this could have been 
any set of locations, as long as the C-64 


3005 A9 00 
3007 85 80 
3009 A8 




LDA #$00 
STA POINTR 
TAY 


INIT DATA POINTER 

LOW BYTE 

AND INDEX POINTER 


o 


buffer area is long enough. Note also 


300A A9 2C 




LDA #BAUDL0 


SET TIMER FOR 




that line 50 must specify the same 


300C 8D 04 DD 




STA TMRAL0 


HALF-BIT TIME 


o 


addresses as line 10. The C-64 version 


300F A9 03 




LDA #BAUDHI 






must use the target addresses set up by 


3011 8D 05 DD 




STA TMRAHI 






the C-64 receive program. 


301^ A9 20 




LDA #$20 


INIT DATA POINTER 


o 


I recommend the following 


3016 85 81 




STA PAGE 


HI BYTE 


sequence for data transfers using these 


3018 A9 08 


FIX 


LDA #08 


INIT BIT COUNTER 




programs: 

1. Connect and test the interface. 


301A 85 7E 




STA SAVX 






301C 78 




SEI 


KILL C64 INTERRUPTS 


o 


2. If data is to be transferred for 


301D A9 00 
301F 85 82 




LDA #00 , 
STA WORD 


INIT INPUT 
SCRATCH PAD 




programming in an EPROM, use 












HESMON 64 to prepare the buffer area: 




; INPUT LOOP 




o 


F2000 2FFF FF 


3021 2C 01 DD 


GET 


BIT BP0RT 


TEST FOR START BIT 




This command fills 4096 locations (a 


3024 30 FB 




BMI GET 


WAIT FOR IT 




full 2732 EPROMj with $FF. Thus, if 


3026 20 53 30 




JSR HLFBIT 


FOUND IT 





the code transferred is smaller than 


3029 2C 01 DD 




BIT BP0RT 


WAIT ONE-HALF BIT 


4096 bytes, unused EPROM locations 


302C D0 F3 




BNE GET 


FALSE START BIT? 




will remain undisturbed. 


302E 20 50 30 


INBIT 


JSR FULBIT 


SAMPLE NEXT BIT 




3. Set up the CoCo by entering the 


3031 AD 01 DD 




LDA BP0RT 


READ PORT 


o 


r / O ***** 

BASIC program. Compute the 


3034 0A 

3035 66 82 




ASL A 
ROR WORD 


GET INPUT DATA BIT 
ROTATE INTO BUFFER 




checksum now or later. 


3037 C6 7E 




DEC SAVX , 


COUNT BIT AND 




4. Start the receiving program in the 


3039 F0 03 




BEQ DUMP 


TEST FOR LAS 


o 


C-64 (it will wait on data if the 


303B 4C 2E 30 




JMP INBIT 


GET MORE 




interface is connected) using: 


303E A5 82 


DUMP 


LDA WORD , 


SAVE ASSEMBLED 




G3000 


3040 91 80 




STA (POINTR), Y 


; DATA 


o 


5. Type RUN on CoCo. 


3042 C8 




INY 


BUMP POINTER 




6. When CoCo prints "BREAK IN 


3043 D0 02 




BNE SKIP 


PAGE BOUNDARY? 




40", hit RESTORE on the C-64. 


3045 E6 81 




INC PAGE 


INCREMENT PAGE BIT 




7. Save the data using this 
HESMON command: (disk assumed) 
S" filename" 08 2000 2FFF 


3047 AD 0D DD 


SKIP 


LDA CIA2IR 


CLEAR STATUS BIT 


o 


304A 20 50 30 
304D 4C 18 30 




JSR FULBIT 
JMP FIX 


WAIT FOR STOP BIT 
AND CONTINUE 




8. Return to BASIC (C-64) with the 




; POLLED 


TIMER DELAY 




o 


HESMON command XC; enter the 


3050 20 53 30 


FULBIT 


JSR HLFBIT 


TWICE FOR FULL BIT 




checksum program and compute the 


3053 A9 09 


HLFBIT 


LDA #TMRNIT 


START TIMER 




checksum. In case other than 


3055 8D 0E DD 




STA TMRACR 




o 


HESMON is used, it may be necessary 


3058 AD 0D DD 


TEST 


LDA CIA2IR 


WAIT FOR 




to load the data from disk with an offset 


305B 29 01 




AND #$01 


STATUS BIT 




to avoid conflicts with BASIC. If the 


305D F0 F9 




BEQ TEST 






checksum is OK, you are free to 


305F 60 




RTS 


RETURN 


© 


program the EPROM. 


3060 




END 






-MCftO 
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HILISTER - A Study and 
Teaching Aid 

(Part 1) 

♦ 
♦ 
♦ 



P" "= » " = » i n i i n i m i i rnr |piF I Fjr= I P1 

Move easily within your programs and highlight 
parts of text or listings to add emphasis, drama or 
clarity 

pi i n n i ira i n i i n i i r i i n i i ni ini^=^=im 



by J. Morris Prosser 



HiLister is a machine language program 
which may be called from either 
Applesoft or the monitor to invert one 
line at a time on the screen display, 
thus "highlighting" that line. In 
addition, an Applesoft program, a block 
of disassembled memory locations, a 
disk catalog (either drive], a memory 
dump (in both hex and ASCII), or 
almost anything else may be listed to 
the screen, after which one can jump to 
the beginning or end of the listing, 
move forward or backward by screen 
"pages", scroll either up or down, or 
step up or down one line at a time. 
Lines may be highlighted in this mode 
also. 

HiLister began as a simple line 
inverter, to highlight lines on the 
screen while teaching a beginner's 
programming class. The instructor sat 
at the keyboard and used a separate 
monitor to show the class what was 
happening. In order to point out a 
particular line for discussion, he had to 
get up and point to it on the monitor. 
HiLister made it possible for him to 
remain seated, pointing out the line by 
causing it to be printed in inverse 
characters . 



At that point, it was possible to 
highlight only those lines already on 
the screen display, so I added a list 
function to allow an entire Applesoft 
program to be examined with the 
highlighter. When the list function is 
in effect, if the highlight is moved to 
the bottom of the screen and an 
attempt is made to move it further, the 
screen scrolls up one line, and the 
bottom line is again highlighted. A 
similar action occurs at the top of the 
screen. The additional functions of 
jumping to beginning or end, paging, 
scrolling, and stepping are icing on the 
cake. 

Once the Applesoft list function 
was in operation, I found that the 
program was very helpful for studying 
program listings at any time, rather 
than being useful only in a teaching 
situation. It was at this point that I 
decided to add a list function for 
machine language disassembly listings. 

It also appeared that some other 
functions might be useful, so I added a 
command to dump a block of memory 
to the screen in hex and ASCII and 
another to allow the listing of long 
catalogs from either drive. The final 



step was to add a method of listing 
other things I had perhaps overlooked. 

HiLister is initialized by "BRUN 
HILISTER" or by "BLOAD HILISTER" 
and "CALL 3276 8". The initialization 
consists of setting the ampersand (&.) 
and ctrl-Y vectors. The program is then 
accessed by entering ctrl-Y from the 
monitor (for the highlighter function 
only), or "&." from Applesoft (for all 
functions). "&LIST" causes the 
Applesoft program in memory to be 
listed in its entirety to both the screen 
and to a buffer area used by HiLister for 
the list function. Commas or hyphens 
and beginning and ending addresses 
may be used as in the standard 
Applesoft LIST command to obtain a 
partial listing. 

To get a listing of a machine 
language program or other 
disassembled machine code, the 
command is an ampersand followed by 
a dollar sign and the start address (in 
hex) of the memory to be disassembled. 
Thus, "&$8000" would print 256 lines 
of disassembled code starting at $8000 
(a partial listing of HiLister, for 
example). "&$8000L" would produce 
the same result. Addition of a plus sign 
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after the address (for example, &$8000) 
causes 512 lines of disassembled code 
to be listed. Note that "&$8000L" 
would produce only 256 lines of code, 
since the program looks for only one 
character following the address. 

To obtain a memory dump, the 
command is "&$" followed by the 
range of memory to be dumped. For 
example, "&$8000.84FF" would dump 
the range $8000 to $84FF, just as in the 
normal monitor command. 

Disk catalogs are listed by using the 
command "$C" for the default drive, 
or "&C1" or "&C2" to specify the 
drive. 

To list anything else to the program 
buffer, use "&B" to initialize the 
output detour and the buffer, then list 
or print whatever is desired, then enter 
the HiLister program with "&E". 

While the program is listing to the 
screen and buffer, ctrl-S and ctrl-C may 
be used to pause and end the listing, 
respectively, just as with the normal 
Applesoft LIST command. Note, 
however, that ctrl-C is not effective in 
a catalog listing. 

If a program is too long to be 
completely listed to the buffer, the bell 
sounds and a message is displayed 
offering the options of using the part of 
the program already listed or leaving 
the HiLister program and re-entering it 
with only an elected part of the 
program to be listed. The buffer 
normally starts at $4000, so an 
Applesoft program of more than 57 
sectors would overwrite it. The 
Applesoft program length is checked by 
HiLister, however, and if necessary the 
start of the buffer is moved up in 
memory. In this event, of course, the 
buffer size is decreased and it will not 
hold as long a listing. 

Applesoft programs of this length or 
longer may be too long for complete 
listing. For very long programs it is 
better to load the program, delete those 
lines not required for study, and then 
invoke the list function of HiLister. 
This will provide for a larger buffer and 
make the maximum number of lines 
available for study. Note that an 
Applesoft program longer than 120 
sectors will overwrite the HiLister 
program itself. In this case it is possible 
to load the Applesoft program, delete 
part of it, then BRUN HILISTER. 

The assembly listing for HiLister is 
quite long and is liberally commented, 
so only a brief description of how the 
program works will be provided here 
(Listing 1). 
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Upon first running the program, the 
ampersand and ctrl-Y vectors are set up 
and control is returned to BASIC. Upon 
entry to the main program, the program 
determines whether the highlighter 
alone is requested, or one of the other 
options is desired. If a listing is 
required, the program sets the output 
vector (subroutine OUTSET) to cause 
all output to pass through the program, 
so that it may be listed to the buffer as 
well as to the screen. It also fills the 
buffer with carriage returns so there 
will be no extraneous material at the 
end of the listing. If an Applesoft 
listing, the program goes to a portion of 
code which replaces the standard 
Applesoft "LIST" routine. The 
standard routine could not be used, 
since it does not normally return to the 
caller and, in addition, some special 
formatting was required. 

If a disassembly listing is requested, 
the program determines the start 
address for the listing, then checks to 
see whether 256 or 512 lines should be 
listed. This is done in subroutine 
"MEMLST," which also checks to see 
whether "DEF" is part of the address 
entered. The reason this is needed is 
that Applesoft would interpret this as 



the beginning of a "DEF FN" 
command, and so would replace it with 
the token for "DEF" ($B8j. If this 
happens, the "DEF" address must be 
restored so the listing will start at the 
correct address. While this situation 
will seldom arise, I thought it should 
be covered. 

MEMLST also checks to determine 
if a memory dump is desired rather 
than a disassembly listing. It does this 
by looking for a period between 
addresses. 

When all is well, if a disassembly 
listing is requested, the program goes to 
"MONLIST," which replaces the 
monitor "LIST2" subroutine. It is 
called twice if 512 lines are to be listed. 

If a memory dump is required, the 
program jumps to "DUMP," which 
performs a function similar to the 
"XAM" function in the monitor, with 
the added feature that the hex code is 
converted to ASCII and shown at the 
same time. Control (non-printing) 
characters are shown as blanks. 

If a catalog listing has been 
requested, the program jumps to 
"CTLG," which first removes the 
pause from the DOS CATALOG 
routine, then calls it. When the catalog 













Listing 1 










0800 


* HILISTER1 (REV 


04/16/84) 


o 


0800 


* 








0800 


* 


Written by 






0800 


* 








0800 


* J. 


Morris Prosser 




o 


0800 


* 








0006 


LINE 


EQU $06 


LINE NUMBER FOR HIGHLIGHTER 




0007 


TEMPY 


EQU $07 


TEMPORARY STORAGE FOR Y REGISTER 


o 


0009 


TEMPX 


EQU $09 


TEMPORARY STORAGE FOR X REGISTER 


0019 


FLAG 


EQU $19 


FLAG FOR USE BY HIGHLIGHTER 




001A 


LSTFLG 


EQU $1A 


A/S LIST FLAG 




001B 


COUNT 


EQU $1B 


COUNTER 


o 


001C 


PLUSFLG 


EQU $1C 


FLAG FOR EXTENDED MONITOR LIST 




001D 


CATFLG 


EQU $1D 


FLAG FOR CATALOG LISTING 




001E 


DIRFLG 


EQU $1E 


FLAG FOR STEP DIRECTION 




0024 


CH 


EQU $24 


CURSOR HORIZONTAL POSITION 


o 


0025 


CV 


EQU $25 


CURSOR VERTICAL POSITION 




0031 


MODE 


EQU $31 


MODE OF MONITOR COMMAND 




0036 


CSWL 


EQU $36 


CHARACTER OUTPUT VECTOR 


o 


003A 


PCL 


EQU $3A 


PROGRAM COUNTER 




003C 


AIL 


EQU $3C 


GENERAL PURPOSE COUNTER 




003E 


A2L 


EQU $3E 


GENERAL PURPOSE COUNTER 




0040 


A3L 


EQU $40 


GENERAL PURPOSE COUNTER 


o 


0042 


A4L 


EQU $42 


GENERAL PURPOSE COUNTER 




0050 


LINNUM 


EQU $50 


GENERAL PURPOSE 16-BIT REGISTER 




0085 


F0RPNT 


EQU $85 


GENERAL POINTER 


© 


009B 


L0WTR 


EQU $9B 


GENERAL PURPOSE REGISTER 


009D 


DSCTMP 


EQU $9D 


TEMP STRING DESCRIPTOR 




00B1 


CHRGET 


EQU $B1 


GET CHAR. .INCREMENT POINTER 




00B7 


CHRG0T 


EQU $B7 


GET CHAR., NO INCREMENT 


© 


00F9 


MEMFLG 


EQU $F9 


MONITOR LIST FLAG 




00FA 


BUFST 


EQU $FA 


BEGINNING OF LIST BUFFER 
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Listing 1 (continued) 


















listing is complete, the program 




00FC 


SCRST 


EQU $FC 


BEGINNING OF SCREEN BUFFER 


restores the pause to DOS. 




©00FE 


LSTEND 


EQU $FE 


;END OF LISTING 


When listing is completed, the 




0200 
03D0 
03EA 


IN 

BASIC 

TELLDOS 


= $200 
= $3D0 
= $3EA 


; Input buffer 

;Soft entry to BASIC 

•DOS routine to get change in 


program pages back one screenful and 
sets the address at that point as the 




©03F5 


AMP 


= $3F5 


Ampersand vector 


start of the screen buffer and as the 




03F8 


CTRLY 


= $3F8 


Control-Y vector 


address of the end of the listing. It then 




4000 


BUFLE 


= $4000 


.Buffer low end 


reprints this screen, sounds the bell, 




rt C000 
^C010 


KBD 


$C000 


; Keyboard Input address 


and prints a "LISTING COMPLETED" 




KBDSTRB 


= $C010 


Keyboard strobe 


message. 




D61A 


FNDLIN 


$D61A 


;Flnd mem. loc. of line in LINNUM 


The operation of the jumps to 




DA0C 


LINGET 


= $DA0C 


Get line no. from input buffer 


beginning and end of the listing is fairly 




©DAFB 


CRDO 


= $DAFB 


.Print carriage return 


obvious - simply a matter of setting the 




DB5C 


OUTDO 


$DB5C 


Print character in accumulator 


start of the screen buffer to the start of 




DEC9 
ED24 


SYNERR 
LINPRT 


$DEC9 
= $ED24 


; Syntax error routine 
.Print line number 


the listing buffer or the end address of 




©F8D0 


INSTDSP 


= $F8D0 


.Print disassembled instruction 


the listing, as mentioned above. 




F940 


PRNTYX 


= $F940 


Print Y and X registers 


The paging and scrolling are based 




F953 


PCADJ 


= $F953 


Adjust program counter 


on checking the buffer for the next 




qFBCI 


BASCALC 


= $FBC1 


Calc. start addr. of screen line 


previous or next following carriage 




FC22 


VTAB 


= $FC22 


;Set cursor vertical position 


return. For paging, 23 returns are 




FC58 


HOME 


= $FC58 


.Clear screen - home cursor 


counted before the next screen is 




FC9C 


CLREOL 


$FC9C 


; Clear to end of line 


printed, while for scrolling the screen is 




©FCBA 


NXTA1 


JFCBA 


Increment pointer A1L,A1H 


reprinted after each return is found, and 




FDDA 


PRBYTE 


= $FDDA 


Print accumulator as hex 
byte 
Print to output device 


then the next one is searched for. 




FDED 63 


COUT 


$FDED ; 


Stepping one line at a time is 




©FDF0 


COUT1 


$FDF0 


Print to screen 


accomplished by use of the space bar. 




FE2C 


MOVE 


$FE2C 


Move memory block 


The program checks to see whether the 




FF3A 


BELL 


= $FF3A 


Sound bell 


last movement called for was forward 




©FFA7 


GETNUM 


= $FFA7 


Get hex bytes from input buffer 


or backward (by looking at DIRFLG), 




FFC7 


ZMODE 


= $FFC7 


Set MODE for GETNUM 


then calls UPDO or DOWNDO, as 




8000 
8000 




ORG $8000 
NOG 




appropriate. Default is UPDO, to scroll 
forward one line. 




©8000 
8000 


* Set an 


persand and ctr. 


L-Y vectors 


Commands available for 




8000 


* 






manipulating the listing are: 




^8000 A9 4C 
^8002 8D F5 03 


START 


IDA #$4C 










STA AMP 




B - jump to the beginning of the 




8005 8D F8 03 




STA CTRLY 




listing 




8008 A9 80 




IDA /BEGIN 








@800A 8D F6 03 
800D 8D F9 03 




STA AMP+1 
STA CTRLY+1 




E - jump to the end of the listing 




8010 A9 IB 




IDA #BEGIN 




+ or ; - page forward (previous 




8012 8D F7. 03 

©8015 8D FA 03 

8018 AC D0 03 




STA AMP+2 
STA CTRLY+2 
JMP BASIC 




bottom line becomes top line) 




801B A2 00 


BEGIN 


LDX #0 


Clear flags 


- or = - page back (previous top line 




_801D 86 ID 
**801F 86 1A 




STX CATFLG 




becomes bottom line) 






STX LSTFLG 








8021 86 F9 




STX MEMFLG 




Right arrow - scroll up (stops on any 




8023 86 1C 




STX PLUSFLG 




keypress) 




©8025 86 IE 




STX DIRFLG 








8027 C9 00 


HI LITER 


CMP #0 


Other command 


Left arrow - scroll down (stops on any 




8029 F0 03 




BFL HILITER1 


No - HILITER 


keypress) 




802B 4C CF 80 




JMP LISTER 






©802E 

802E A2 00 


* 

HILITER1 LDX #0 


Set FLAG and LINE to zero 


Space bar - step forward or backward 




8030 86 19 




STX FLAG 




one line. 




^8032 86 06 
8034 F0 5B 




STX LINE 










BFL NXTLN 


Branch always 


& - calls highlighter 




8036 2C 00 C0 


KEYCHK 


BIT KBD 


Check keyboard 






8039 10 FB 




BPL KEYCHK 


Key not pressed 


ESC - returns to BASIC 




©803B AD 00 C0 




IDA KBD 


Key pressed - get it 






803E 2C 10 C0 




BIT KBDSTRB 


Reset keyboard strobe 


If the highlighter was requested, the 




8041 C9 9B 




CMP #$9B 


Is it 'ESC 


top line of the screen is changed to the 
inverse of what it was; that is, normal 




8043 D0 05 
©8045 85 19 




BTR NOTESC 
STA FLAG 


No - branch 
;Yes - set FLAG 




8047 4C 91 80 




JMP NXTLN 


Remove highlight and exit 


characters become inverse, inverse 




804A C9 88 


NOTESC 


CMP #$88 


•Is it left arrow 


characters become normal, and 
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flashing characters are unchanged. The 
program then looks for keyboard input. 
If a right arrow is pressed, the top line is 
restored and the next line is inverted. 
Further presses of the right arrow key 
cause the highlighting line to move on 
down the screen in this manner. The 
left arrow works the same way, except 
that it moves the "highlight" up the 
screen. 

If the highlighter was called from 
any list routine, then when the 
highlighted line is at the bottom of the 
screen, further right arrows make the 
screen scroll up one line. Left arrows 
work in an analogous fashion when the 
highlighted line is at the top of the 
screen. The "ESC" key causes the 
currently highlighted line to be 
restored and the program returns to the 
caller. 

One problem occurs with the 
highlighter if your listing includes 
lower case letters, in that the Apple II 
cannot show lower case letters in 
inverse. I thought the best thing to do 
in this event was to convert the lower 
case to upper case before highlighting. 
Naturally, when the highlighting is 
removed the material remains in all 
upper case. If the list function is in 
effect, the lower case will be restored as 
soon as the screen is reprinted for any 
reason, such as scrolling, paging, or 
stepping. Another way of handling this 
situation would be to show all 
characters except lower case in inverse, 
leaving the lower case characters 
normal. If you would like to try this 
option, get into the monitor with 
CALL-151, then type "809C:B0 16 EA 
EA' ' and press RETURN - after having 
BLOADed HILISTER, of course. 

While the highlighter is in 
operation, all keys except "ESC" and 
the right and left arrows are ignored. 

The assembly listing for the 
highlighter portion of the program is 
included here as Listing 1. This is a 
stand-alone program as shown, so it 
can be put to use immediately after 
keying it in. It should be saved as 
HiListerl. If you are entering the code 
without using an assembler, the 
command is: 
BSAVE HILISTER1, A$8000, L$D0. 

Part 2 of this article will present a 
listing of the remainder of the program, 
and will include instructions for adding 
it on. Some of the code in the first part 
of the listing appears redundant, but it 
is necessary for interfacing to the other 
parts of the program. 
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Listing 1 (continued) 



804C D0 
804E A6 

8050 CA 

8051 10 

8053 E8 

8054 A5 
8056 05 
8058 05 
805A F0 
805C 85 
805E 20 
8061 20 
8064 4C 
8067 86 
8069 A2 
806B F0 
806D C9 
806F D0 
8071 A6 
8073 E8 
807-4 E0 
8076 D0 

8078 CA 

8079 A5 
807B 05 
807D 05 
807F F0 
8081 85 
8083 20 
8086 20 

8089 4C 
808C 86 
808E A2 

8090 CA 

8091 A5 
8093 20 
8096 A0 
8098 Bl 
809A C9 
809C 90 
809E 29 
80A0 C9 
80A2 90 
80A4 29 
80A6 B0 
80A8 C9 
80AA B0 
80AC 69 
80AE C9 



80B2 69 
80B4 91 
80B6 88 
80B7 10 
80B9 A5 
80BB F0 
80BD A2 
80BF 86 
80C1 60 
80C2 8A 
80C3 D0 
80C5 AC 
80C8 A5 
80CA 85 
80CC E8 
80CD F0 
80CF 
80CF D8 
80D0 



IF 
06 

14 

1A 

F9 

ID 

0B 

19 

91 80 

83 83 

91 80 

09 

00 

23 

95 

C5 



18 
14 

1A 

F9 

ID 

0B 

19 

91 80 

65 83 

91 80 

09 

00 



CI FB 

27 

28 

E0 

02 

DF 

A0 

04 

3F 

0C 

40 

0A 

80 

A0 

02 

40 

28 

DF 
19 
05 
00 
19 



03 

36 80 
09 
06 

C2 



LFT1 



NOTLFT 



RT1 

INVERT 
NXTLN 



GETCH 



NOTLC 



INV 



DISP 
NXTCH 



CONT 



C0NT1 



* 
LISTER 



BTR NOTLFT 
LDX LINE 
DEX 

BPL LFT1 
INX 

IDA LSTFLG 
ORA MEMFLG 
ORA CATFLG 
BFL LFT1 
STA FUG 
JSR NXTLN 
JSR DOWNDO 
JMP NXTLN 
STX TEMPX 
LDX #0 
BFL INVERT 
CMP #$95 
BTR KEYCHK 
LDX LINE 
INX 

CPX #24 
BTR RT1 
DEX 

IDA LSTFLG 
ORA MEMFLG 
ORA CATFLG 
BFL RT1 
STA FUG 
JSR NXTLN 
JSR UPDO 
JMP NXTLN 
STX TEMPX 
LDX #0 
DEX 

IDA LINE 
JSR BASCALC 
LDY #39 
IDA ($28), Y 
CMP #$E0 
BLT NOTLC 
AND #$DF 
CMP #$A0 
BLT INV 
AND #$3F 
BGE DISP 
CMP #$40 
BGE NXTCH 
ADC #$80 
CMP #$A0 
BGE DISP 
ADC #$40 
STA ($28), Y 
DEY 

BPL GETCH 
IDA FUG 
BFL CONT 
LDX #0 
STX FUG 
RTS 
TXA 

BTR C0NT1 
JMP KEYCHK 
IDA TEMPX 
STA LINE 
INX 
BFL NXTLN 

RTS 
END 



;No - branch 
;Yes - get LINE 
;and decrement it 
;Not top of screen 
;Top of screen 
;List in effect 



;No - branch 

;Yes 

; Restore top line 

/Scroll down one line 

; Invert it 



;Put in highlight 

; Is it right arrow 

;No - get next keypress 

;Get line number 

;and increment it 

; Bottom line 

;No - branch 

;Yes 

;Llst in effect 



;No - branch 

;Yes 

; Restore line 

;Scroll up one line 

; Invert it 

;Save line number 



;Get line number 

;Flnd address of left end 

; Start at end of line 

;Get character O 

;Is it lower case 

;No - check further 

;Yes - make it upper case ^ 

;Is it normal 

;No - check further 

j Yes - invert it 

;and display it Q 

;Is it flashing 

;Yes - don't change it 

;Must be inverse - make it normal 

; Normal now " 

;Yes - display it 

;No - make it so 

;And print it q 

;Get next character 

;Not done yet 

;Is FUG set 

;No - check X O 

;Yes - clear it 

: Done _ 

;x=0 O 

;No - branch 

;Yes - get next command 

; Invert next line Q 



; Branch always 
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Super Simple Numeric Sort 

by Robert L Martin WB2KTG 



Arrange a list in numerical order without a user sup- 
plied sorting program 



Everyone, at some time, has had to 
take a list of numbers and arrange them 
in numerical order. The effort involved 
in accomplishing this task can, of 
course, be minimized by the use of a 
computer and a sorting program. 
Explained in this article is a sorting 
technique which doesn't require a user 
supplied program, but instead uses a 
built-in BASIC feature-automatic 
program statement sequencing. 

All BASIC interpreters will allow 
non-sequential program statement 
en cry. That is, the line numbers of 
statements need not be entered in any 
specific order. The BASIC interpreter 
will automatically LIST them in 
ascending order. 

To arrange a list of numbers in 
ascending order, input each number 
followed by a period, asterisk, or some 
other non-numeric character. For non- 
integer values the decimal point will 
serve as the non-numeric character. 

The Basic interpreter assumes that 
any digits input preceding a non- 
numeric character are line numbers. 
All alphanumeric characters entered 
following the first non-numeric 
character are assumed to be BASIC 
program statements. As long as no 
attempt is made to RUN the program, 
no error message will be given. 

The example shown is the actual 
printed output from my Sharp PC- 1500 
pocket computer and CE-150 
printer/plotter. 

The use of this technique was 
discovered at work when I was given a 



list of 140 repair orders to sequence. 
Each repair order number was four 
digits long. Fortunately, I had my 
PC- 1500 with me, along with a bit of 
imagination. I hope this example of 



using a computer's "hidden" talents 
will result in other non-standard 
techniques being developed to save the 
time and patience of the human 



interface. 



JMCftO 



Sample Printout From Sharp PC- 
1500/CE-150 


29 


29. 


36.5 


36.5 


414 


414. 


13.2 


13.2 


5 


5. 


1019 


1019. 


7.25987 


7.25987 


a)List of Numbers 


b) Numbers as Input to the Computer 
(note Decimal Points). 




5:. 




7 


.25987 




13 


.2 




29 






36 


.5 




414 






1019 




c) Output of Computer in Response to a 
"LLIST" command. 
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FLOPPY DISKS SALE *$1.19 ea. 

Economy Model or Cadillac Quality 



LOR/IN 



Cf RTIFltD PtRSONAL 
COMPUTER DISK 



We have the lowest prices! lorah 



CERTIFIED PERSONAL 
COMPUIER DtSK 



•ECONOMY DISKS 






Good quality 5 1 /4 " single sided double density with hub rings. 






Bulk Pac 100 Qty. $1.19 ea. 


Total Price 


$119.00 


10Qty. 1.39 ea. 


Total Price 


13.90 



CADILLAC QUALITY 

• Each disk certified • Free replacement lifetime warranty • Automatic dust remover 

For those who want cadillac quality we have the Loran Floppy Disk. Used by professionals because they can rely 
on Loran Disks to store important data and programs without fear of fossl Each Loran disk is 100% certified (an 
exclusive process) plus each disk carries an exclusive FREE REPLACEMENT LIFETIME WARRANTY. With Loran 
disks you can have the peace of mind without the frustration of program loss after hours spent in program 
development. 

100% CERTIFICATION TEST 

Some floppy disk manufacturers only samp/plest on a batch basis the disks they sell, and then claim they are 
certified. Each Loran disk is individually checked so you will never experience data or program loss during your 
lifetime! ^^^Barifl^^^B^HBHl^^»HHiHH^^^^^^R 

FREE REPLACEMENT LIFETIME WARRANTY 

We are so sure of Loran Disks that we give you a free replacement warranty against failure to perform due to faul- 
ty materials or workmanship for as long as you own your Loran disk. 

AUTOMATIC DUST REMOVER 

Just like a record needle, disk drive heads must travel hundreds of miles over disk surfaces. Unlike other floppy 
disks the Loran smooth surface finish saves disk drive head wear during the life of the disk. (A rough surface will 
grind your disk drive head like sandpaper). The lint free automatic CLEANING LINER makes sure the disk-killers 
(dust & dirt) are being constantly cleaned while the disk is being operated.. PLUS the Loran Disk has the highest 
probability rate of any other disk in the industry for storing and retaining data without loss for the life of the disk 

Loran is definitely the Cadillac disk in the world 

Just to prove it even further, we are offering these super LOW INTRODUCTORY PRICES 
List $4.99 ea. INTRODUCTORY SALE PRICE $2.99 ea (Box of 10 only) Total price $29.90 

$3.33 ea. (3 quantity) Total price $9.99 

All disks come with hub rings andsfeeves in an attractive package. 

DISK DRIVE CLEANER M9.95 

Everyone needs a disk drive doctor 

FACTS 

• 60% of all drive downtime is directly related to poorly maintained drives. 

• Drives should be cleaned each week regardless of use. 

• Drives are sensitive to smoke, dust and all micro particles. 

• Systematic operator performed maintenance is the best way of ensuring error free use of your computer] 
system. 

The Cheetah disk drive cleaner can be used with single or double sided 5'/T disk drives. The Cheetah is an 1 
easy to use fast method of maintaining efficient floppy diskette drive operation. 

The Cheetah cleaner comes with 2 disks and is packed in a protective plastic folder to prevent contamination. 
List $29.95 /Sale $19.95 



■ Add $10.00 for shipping, handling and Insurance. Illinois residents I 
| please add 6% tax. Add $20.00 for CANADA, PUERTO RICO, HAWAII | 
j orders. WE DO NOT EXPORT TO OTHER COUNTRIES. j 

I Enclose Cashiers Check, Money Order or Personal Check. Allow 14 | 
| days tor delivery, 2 to 7 days for phone orders, 1 day express mail! I 
| Canada orders must be in U.S. dollars. Visa - MasterCard • COD. ■ 



FNTERPRIZES ,w€, - ov€ou " <:us ' o "' € " si 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to order 



EXECUTIVE LETTER QUALITY 

DAISY WHEEL PRINTER SALE $ 379 00 



COMSTAR 13' 




computer printer 



COMSTAR 13" "DAISY WHEEL" POWER TYPE 
PRINTER is typewriter friendly. It uses a simple 
drop in cassette ribbon. Just turn on the COM- 
STAR 13" for Crip executive quality cor- 
respondence at 18 CPS with a daisy wheel that 
prints 96 power type flawless characters, bi- 
directional. Designed for personal and business 
applications. COMSTAR 13" carriage accepts 
paper from letter to legal size, continuous com- 
puter paper or single sheets, you can set right 
and left margins, vertical and horizontal tabs. 
(Serial and parallel interface). LIST PRICE '599 00 
SALE PRICE s 379 00 



O OLYMPIA "DAISY WHEEL" COMBINATION 

PRINTER/TYPEWRITER SALE $ 489 00 




Ooiympia 



Cf Olympia 



the MW uiympia computer printer 

ELECTRONIC TYPEWRITER is the ultimate for 
Home, Office, and Word Processing. You get the 
best Electronic Typewriter made and used by 
the world's largest corporations (better than IBM 
Selectric) plus a Superb Executive Cor- 
respondence Computer Printer!! (Two machines 
in one!) Just flick the switch for the option you 
want to use. The extra large carriage allows 
14%" printer paper width. It has cassette ribbon 
lift off correction. Baud rates, Jumper selectable 
75 through 19,200 (parallel interface) 
LIST , 799 011 SALE s 489 00 



(WORLD'S FINEST) 



• 15 DAY FREE TRIAL — 90 DAY FREE REPLACEMENT GUARANTEE 



j Add $17.50 for shipping and handling!! 

I Enclose Cashiers Check, Money Order or Personal Check. Allow 
j 14 days for delivery, 2 to 7 days for phone orders, 1 day express 
| mail! Canada orders must be in U.S. dollars. VISA — MASTER 
I CARD ACCEPTED. We ship C.O.D. 



ENTERPFMZES (WE LOVE OUB CUSTOMERS] 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to order 



40 



MICRO 



No. 73 ■ July 1984 



® SANYO MONITOR SALE!! 




9" Doto Monitor 



80 Columns x 24 lines 
Green text display 
Easy to read - no eye strain 
Up front brightness control 
High resolution graphics 
Quick start ■ no preheating 
Regulated power supply 
Attractive metal cabinet 
UL and FCC approved 



15 Day Free Trial - 90 Day Immediate Replacement Warranty 



9" Screen - Green Text Display $ 69.00 

12" Screen - Green Text Display (anti-reflective screen) $ 99.00 
12" Screen - Amber Text Display (anti-reflective screen) jyyyH) 
12" Screen-Super 1000 Line Amber Text Display /$129.(Kr 

14" Screen - Color Monitor (national brand) \ $249. 

Display Monitors From Sanyo 



With the need for computing power growing every day, Sanyo has 
stepped in to meet the demand with a whole new line of low cost, high 
quality data monitors. Designed for commercial and personal com- 
puter use. All models come with an array of features, including up- 
front brightness and contrast controls. The capacity 5 x 7 dot 
characters as the input is 24 lines of characters with up to 
80 characters per line. 

Equally important, all are built with Sanyo's commitment 
to technological excellence. In the world of Audio/Video, Sanyo is 
synonymous with reliability and performance. And Sanyo quality is 
reflected in our reputation. Unlike some suppliers, Sanyo designs, 
manufactures and tests virtually all the parts that go into our products, 
from cameras to stereos. That's an assurance not everybody can 
give you! 



SANYO 



Official Video Products 
of the Los Angeles 1984 Olympics 




'WO. ' >*-». 



Q99 



• LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 




I Add $10.00 for shipping, handling and Insurance. Illinois resident* f 
I please add 6% tax. Add $20.00 lor CANADA, PUERTO RICO, HAWAII | 
j orders. WE DO NOT EXPORT TO OTHER COUNTRIES. j 

I Enclose Cashiers Check, Money Order or Personal Check. Allow 14 j 
| days (or delivery, 2 to 7 days lor phone orders, 1 day express mail! I 
• Canada orders must be in U.S. dollars. Visa - MasterCard - C.O.D. • 



ENTERPRIZES iwE love ouR cust ° mehs > 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to order 



Aeatttne 



CMPRSS — 

Improved Applesoft 
Compression Program 



Compress large programs easily and retain com- 
ments without overflowing Called Line Number 
Table 



by Ian R. Humphreys 













© 




;**APPLESOFT SUBROUTINES** 




D61A 


r 

FNDLIN 


EQU $D61A 


;Find start of 




0800 






;givn Applesft In 


© 


D697 
0800 


STXTPT 


EQU $D697 


;Init TXTPTR for 
;pass of program 




DA0C 


LINGET 


EQU $DA0C 


;Convrt dec to hex 


© 


DAFB 


CRDO 


EQU $DAFB 


; Output carriage 


0800 






; return to screen 




DB3A 


STROUT 


EQU $DB3A 


; Output a text 




0800 






; string to screen 


© 


ED24 
0800 


LINPRT 


EQU $ED24 


; Print a hex line 
;# in decimal 




00B7 


CHRGOT 


EQU $00B7 


;Get curr byte 




0800 






;w/o inc TXTPTR 


© 


00B1 


CHRGET 


EQU $00B1 


;Inc TXTPTR and 


© 


0800 






;get next byte 










o 




;**ZERO PAGE LOCATIONS** 




0007 


MAXX 


EQU $0007 


;Loop Ctrl for 




0800 




; trans fLINBUF to new prog 


© 


0005 
0800 


OLDBEG 


EQU $0005 


;Ptr to last EOS 
; in orig prog 




n004 


LASTX 


EQU $0004 


;Ptr to last EOS 


© 


0800 






;in LINBUF 


0003 


NEWPTR+1 EQU $0003 






0002 


NEWPTR 


EQU $0002 


;Ptr to curr posn 




0800 






; in compr prog 


© 


0001 
0800 


IFFLAG 


EQU $0001 


;Flag set when IF 
; found in line 




0000 


ERRORS 


EQU $0000 


;Flag for errors 




0800 






; during PASS #1 


© 


000A 
0800 


LSTEOS 


EQU $000A 


;Last EOS token 
;$00 or $FF 




0009 


0LDE0P+1 EQU $0009 




© 


0008 


OLDEOP 


EQU $0008 


; Value of EPROG 


0800 









3BE 



:b[^ 



Editor's Note: This piogiam improves on 
programs previously done by: Barton M. 
Bauers (MICRO 52:89); Peter J.G. Meyer 
(MICRO 55:26). 



3BE 



Requirements: 

Apple II or Apple II Plus; 48K 
and Applesoft BASIC in ROM 
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I had just finished writing a large, 
well-commented Applesoft program 
which was part of a major System I was 
working on. Unfortunately, when I 
came to test it, there was not enough 
room for its several large arrays and 
various string variables, and the 
program would not run. Coinci- 
dentally, on that same day, I purchased 
the September 1982 edition of MICRO 
magazine and was excited to see that it 
contained an article by Barton M. 
Bauers, giving a source listing of a 
machine language routine which 
compressed Applesoft programs. I 
eagerly hurried home, read the article 
and proceeded to key it into my Apple. 
I tested it on several small programs 
first and found that it seemed to work 
as described, so I set about running 
COMPRESS on my large program. 
Much to my dismay, COMPRESS 
aborted with ERROR #3 which meant 
that the Called Line Number Table had 
overflowed and so I couldn't use it! Not 
only does Barton Bauers' program 
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;at beg of PASS#2 






0051 


LINNUM+1 EQU $0051 








0050 


LINNUM EQU $0050 


;Line num returnd 





impose a limit of 256 called line 


0800 




;by LINGET 




numbers, but it doesn't even check for 


0067 


TXTTAB EQU $0067 


;Ptr to start of 




duplicates, so for anything but a very- 


0800 




; Applesoft prog 


© 


small program the table soon fills up 


006E 


EARS+1 EQU $006E 




and overflows. One of the major 


006D 


EARS EQU $006D 


;Ptr to end of 




reasons for wanting to compress the 
Applesoft code cannot be 


0800 
006C 
006B 


ARS+1 EQU $006C 
ARS EQU $006B 


; array space 
;Ptr to start of 


© 


accommodatejdi— Afsoy— Mr^ — -fiauers' 


0800 




; array space 




prograrrr contains an error. Applesoft^ 


006A 


LOMEM+1 EQU $006A 






allows a statement of the form: 


0069 
0068 


LOMEM EQU $0069 
TXTTAB+1 EQU $0068 


;Lomem pointer 


© 


100 NEXT I,J,K 


| 0074 


HIMEM+1 EQU $0074 






Mr. Bauers' COMPRESS reduces 


0073 
/ 009C 


HIMEM EQU $0073 
LSTLIN+1 EQU $009C 


;Hlmem pointer 


© 


this to: 


/ 009B 


LSTLIN EQU $009B 


,Ptr to start of 




100 NEXT 


0800 


;line found by FNDLIN 




instead of: 


00AF 


EPROG EQU $00AF 


;Ptr to end of 


© 


0800 




; Applesoft prog 




100 NEXT :NEXT :NEXT 


00B9 


TXTPTR+1 EQU $00B9 








00B8 


TXTPTR EQU $00B8 


Ptr to current 


© 




0800 




;byte of program 


\ introducing a logic error ir>tt> your 
Applesoft program! ^-^ 


00FD 


LN2+1 EQU $00FD 






00FC 


LN2 EQU $00FC 


,Hex line number 




Norbeing-able-tcrC'OMPRESS my 


0800 




;of undefnd line 


© 


large program, I resorted to removing 


00FB 


LN1+1 EQU $00FB 






all the REMs manually and finally, 


00FA 


LN1 EQU $00FA 


;Hex line number 




after several hours work, my program 


0800 




; containing error 


© 


was small enough to run. 


00F9 


TOKEN EQU $F9 




Unfortunately, my source version has 
suffered as it now lacked comments 
and was consequently difficult to read. 


0800 
00B8 
0800 
00FC 


OLDPTR EQU $00B8 
TEMP EQU $00FC 


;GOSUB,THEN token 
•Ptr to curr posn 
,in old program 
; Holds EOS byte 


© 


I resolved that I would redesign and 


0800 


; until put into LSTEOS 




rewrite the compression routine and I 
hereunder present my results. I have 








© 








called my routine CMPRSS because it 










will compress an Applesoft program 




**OTHER LOCATIONS** 






even more than COMPRESS does; it 










also uses less RAM space. 


03D0 
03F5 


DOSWS EQU $03D0 
BJP EQU $03F5 


DOS warmst vector 
4 vector 


© 




9500 


LINBUF EQU $9500 


Base address of 




What CMPRSS does 

CMPRSS compresses an Applesoft 


0800 




cmprssd In buffer 











program by: 




♦♦CONSTANTS** 




O 


ja) Concatenating as many statements 










as possible onto one line, thus 


0000 


ENDLIN EQU $00 


Non- referenced 




eliminating many of the unreferenced 


0800 




line token 





line numbers 


0022 


QUOTE EQU $22 


ASCII quote 






002C 


COMMA EQU $2C 


ASCII comma 




(b) Removing the text of REM 


0030 


ZERO EQU $30 


ASCII zero 




statements and where possible the 


0039 


NINE EQU $39 


ASCII '9' 


O 


REM itself (in some instances even 


003A 


COLON EQU $3A 


ASCII ':' 




when a REM line is referenced) * 


0041 


LETTRA EQU $4l 


ASCII 'A' 




(c) Removing LETs 


005A 


LETTRZ EQU $5A 


ASCII 'Z' 


O 




0082 


NXTTOK EQU $82 


NEXT token 


(dj Removing the variable names from 


00AA 


LETTOK EQU $AA 


LET token 




NEXT statements (correctly!) 


00AB 


GOTOTK EQU $AB 


GOTO token 




(e) Truncating variable names to a 


00B0 


GOSBTK EQU $B0 


GOSUB token 


o 


maximum of two characters* 


00AD 


IFTOK EQU $AD 


IF token 






00B2 


REMTOK EQU $B2 


REM token 




* Additional features not performed by 


00C4 


THENTK EQU $C4 


THEN token 




COMPRESS. 


00FF 
0800 
0800 


REFLIN EQU $FF 


Referenced line 
token 


© 
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9000 


ORG $9000 






© 


9000 A9 13 START LDA #< BEGIN 


; Establish & 


How CMPRSS works 




9002 8D F6 03 


STA BJP1 


; vector 






9005 A9 90 


LDA #> BEGIN 




CMPRSS operates in two passes of your 


© 


9007 8D F7 03 
900A A9 00 


STA BJP2 
LDA #< START 


; Reset HIMEM to 


Applesoft program. The first pass 
consists of scanning the program for 
referenced line numbers which are 




900C 85 73 
900E A9 90 


STA HIMEM 
LDA #> START 


; protect CMPRSS 


© 


9010 85 74 


STA HIMEM+1 




found in the following Applesoft 




9015 60 


RTS 




statement types: 




9013 20 FB DA BEGIN JSR CRDO 


; Output CR to screen 


GOTO 


© 


9016 A9 62 


LDA iKPASSIA 


; Print PASS #1 


GOSUB 


9018 A0 94 


LDY #> PASS1A 


; message 


IF... THEN 




901A 20 3A DB 


JSR STROUT 




ON. ..GOTO 




901D A2 00 


LDX #$00 


jlnit error mess 


ON. ..GOSUB 


© 


901F 86 00 


STX ERRORS 








9021 20 97 D6 


JSR STXTPT 


;Init TXTPTR 


CMPRSS does not check the 




9024 20 Bl 00 NXTLIN JSR CHRGET 


;Get next byte 


following commands for referenced 




9027 A0 01 


LDY #$01 




line numbers: 


© 


9029 Bl B8 


LDA (TXTPTR), Y ;End-of-prog? 


LIST RUN DEL 




902B D0 27 


BNE SAVLIN 


;No-so branch 






902D 20 FB DA 


JSR CRDO 




These statements are not 


© 


9030 A9 6D 


LDA #<PASS1B 


; Print End Passl 


commonly used and can be adjusted 


9032 A0 94 


LDY #> PASS1B 




manually after running CMPRSS if 




9034 20 3A DB 


JSR STROUT 




they should occur. 




9037 20 FB DA 


JSR CRDO 


;CR to screen 


In this first pass, each time a line 


© 


903A A5 00 


LDA ERRORS 


;Any errors-Passl 


number is referenced, somehow it 




903 C F0 10 


BEQ PASS2 


;No-so Pass2 


must be recorded so that when the 


© 


903E 20 FB DA 
9041 A9 7C 
9043 A0 94 
9045 20 3A DB 


JSR CRDO 
LDA #< ERRMES 
LDY #> ERRMES 
JSR STROUT 


; Print Not Com- 
; pressed message 


Applesoft program is compressed 
during Pass #2, referenced line 
numbers will not be removed. Mr. 




9048 20 03 91 


JSR RESTOR 


; Remove $FF tokens 


Bauers' COMPRESS uses a Called Line 


© 


904B 4C D0 03 


JMP DOSWS 


j BASIC via DOS 


Number Table which severely limits 


904E 20 22 91 PASS2 JSR SECOND 


; Perform Pass2 


the number of referenced lines you can 




9051 4C D0 03 


JMP DOSWS 


; BASIC via DOS 


have in your program, especially as it 




9054 C8 SAVLIN INY 


;Save Line# 


does not check for duplicates. I have 


o 


9055 Bl B8 


LDA (TXTPTR), Y 


decided to use a method of recording a 




9057 85 FA 


STA LN1 




line number as being referenced which 




9059 C8 


INY 




imposes no restriction upon the 


© 


905A Bl B8 


LDA ( TXTPTR), Y 


amount. It involves flagging the 


905C 85 FB 
905E A5 B8 
9060 18 


STA LN1+1 
LDA TXTPTR 
CLC 




referenced lines within the Applesoft 
program itself. For example, take the 


© 


9061 69 03 


ADC #$03 


;Inc TXTPTR to 


following simple program: 




9063 85 B8 


STA TXTPTR 


jfirst byte in 


10 INPUT J 




9065 90 02 


BCC SCANLN 


jtext of prog In 


20 IF J=0 THEN 50 




9067 E6 B9 


INC TXTPTR+1 




30 PRINT J 


© 


9069 20 Bl 00 SCANLN JSR CHRGET 


{Search for End 


40 GOTO 10 




906C C9 00 


CMP #ENDLIN 


;of Line Token 


50 END 


© 


906E F0 B4 
9070 C9 FF 
9072 F0 B0 
9074 C9 C4 


BEQ NXTLIN 
CMP #REFLIN 
BEQ NXTLIN 
CMP #THENTK 


;Unref and refnd 
;THEN token? 


Each Applesoft program line is 
represented in memory as follows: 
(a| Two bytes in lo-byte, hi-byte order 




9076 D0 0F 


BNE NEXT 


;No-so branch 


which point to the beginning of the 


© 


9078 A0 01 


LDY #$01 




next Applesoft line in memory. This 




907A Bl B8 


LDA (TXTPTR), 


Y 


2-byte address is in hexadecimal. 




907C 38 


SEC 




(b) Two bytes in lo-byte, hi-byte order 


© 


907D E9 30 


SBC #$30 




representing the line number (in 


907F C9 0A 


CMP #$0A 




hexadecimal] of the Applesoft line. 




9081 B0 E6 


BCS SCANLN 




(c) Following the initial 4 bytes of the 




9083 A9 C4 


LDA #THENTK 


; Restore THEN 


line is the 'text' of the Applesoft line 


© 


9085 D0 08 BNE STORE 
9087 C9 AB NEXT CMP #GOTOTK 


; token in accum 
;GOTO token? 


itself. All reserved words (commands) 




9089 F0 04 


BEQ STORE 


;Yes-so branch 


are represented in a single byte by a 




908B C9 B0 


CMP #GOSBTK 


; GOSUB token? 


'token'. For example, INPUT is 


© 


908D D0 DA 


BNE SCANLN 


;No-so branch 






908F 85 F9 STORE STA TOKEN 


;Save token 






9091 20 Bl 00 READLN JSR CHRGET 


;Inc Ptrto ln# 
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9094 20 0C DA 


JSR LINGET 


;Read ln# and st 








9097 A5 50 


IDA -LINNUM 




© 




represented by the token $84 (adopting 


9099 A4 51 


IDY LINNUM+1 








the usual convention of preceding a 


909B 85 FC 


STA LN2 


;Save LINNUM In 






hexadecimal number with $). All 


909D 84 FD 


STY LN2+1 


;LN2 






tokens can be recognized as bytes with 


909F 20 1A D6 


JSR FNDLIN 


;Look for ln# 


© 




their high bit set (i.e., $80 or greater). 


90A2 B0 35 


BCS CHKCOM 


; Found-so branch 






Applesoft tokens range from $80 (END) 
to $EA (MID$). All the rest of the text 


90A4 E6 00 INC ERRORS 
90A6 20 FB DA N0LINE JSR CRD0 
90A9 A5 FB IDA LN1+1 


;Inc err count 


© 




line (which is not represented by an 


90AB A6 FA 


LDX LN1 








Applesoft token) is represented 


90AD 20 24 ED 


JSR LINPRT 


; Print ln# w err 






character by character by each 


90B0 A5 F9 


IDA TOKEN 




© 




character's ASCII code (including line 


90B2 C9 C4 


CMP #THENTK 


;THEN token? 






numbers in GOTOs etc.). All spaces are 


90B4 D0 07 


BNE NEXT1 


;No-so branch 






eliminated by the Interpreter except 


90B6 A9 59 


IDA iKTHEN 


; Print THEN on 






those within quoted strings. 


90B8 A0 94 


LDY #> THEN 


; screen 


© 




(d) The end of the Applesoft line is 


90BA 4C CC 90 


JMP PRINT 








marked by a $00 byte. The hexadecimal 


90BD C9 B0 NEXT1 CMP #GOSBTK 


;G0SUB token? 








90BF F0 07 


BEQ NEXT2 


;Yes-so branch 


© 




representation of our sample program 


90C1 A9 46 


IDA #< GOTO 


;Must have GOTO 




in memory thus would be as follows, 


90C3 A0 94 


IDY #> GOTO 


;so print GOTO 






starting at address $800: 


90C5 4C CC 90 


JMP PRINT 


;on screen 






$800 00 08 08 0A 00 84 4A 00 


90C8 A9 4F NEXT2 IDA #< GOSUB 


; Print GOSUB 


© 




$808 14 08 14 00 AD 4A D0 30 


90CA A0 94 


IDY #> GOSUB 








$810 14 35 30 00 IB 08 1£ 00 


90CC 20 3A DB PRINT JSR STR0UT 


; Print undefd 






$818 BA 4A 00 23 08 28 00 AB 


90CF A5 FD 


IDA LN2+1 


;line # 


© 




$820 31 30 00 29 08 32 00 80 


90D1 A6 FC 


LDX LN2 








$828 00 00 00 


90D3 20 24 ED 
90D6 4C DE 90 


JSR LINPRT 
JMP CHK1 








The end of the entire Applesoft 


90D9 A2 FF CHKC0M LDX-il<REFLIN 


;Put $FF in prog 


© 




program is marked by a sequence of 


90DB 20 F0 90 


JSR WRTBYT 


;to flag ref In 






three $00 bytes. 


90DE 20 B7 00 CHK1 JSR CHRGOT 


; Re-get curbyte 






Because the end of each Applesoft 


90E1 C9 2C 


CMP #C0MMA 


; Comma? 


© 




line is marked by a $00 byte, there is 


90E3 F0 AC 


BEQ READLN 


;Yes-so branch 




also a $00 byte immediately preceding 
each following line. Note that there is 
also a $00 byte preceding the first line 


90E5 A5 B8 IDA TXTPTR 
90E7 D0 02 BNE NEXT3 
90E9 C6 B9 DEC TXTPTR+1 
90EB C6 B8 NEXT 3 DEC TXTPTR 


;Dec TXTPTR in 
jprep for CHRGET 


© 




which usually begins at $801 in 


90ED 4C 69 90 


JMP SCANLN 








memory. 


90F0 18 WRTBYT CLC 


;Put $00 or $FF 






The method I have devised of 


90F1 A5 9B 


IDA LSTLIN 


; In byte preceed 


© 




flagging a referenced line is to set the 


90F3 69 FF 


ADC #$FF 


;a partic Apple 






$00 byte immediately preceding the 


90F5 85 9B 


STA LSTLIN 


jsoft line 






referenced line to $FF (note that in a 


90F7 A5 9C 


LDA LSTLIN+1 




© 




normal Applesoft program no byte is 


90F9 69 FF 


ADC #$FF 






ever set to $FF so therre can be no 


90FB 85 9C 


STA LSTLIN+1 








confusion). 


90FD 8A 
90FE A0 00 


TXA 

LDY #$00 


;X-reg contains 
;$00 or $FF 


© 




After Pass #1 through the sample 


9100 91 9B 


STA (LSTLIN), 


Y 




program, it will look like this: 


9102 60 


RTS 








$800 FF 08 08 0A 00 84 4A 00 


9103 A5 67 REST0R IDA TXTTAB 


;A11 $00 to $FF 


O 




$808 14 08 14 00 AD 4A D0 30 


9105 85 9B 


STA LSTLIN 


jlnit LSTLIN to 




$810 C4 35 30 00 IB 08 IE 00 


9107 A5 68 


IDA TXTTAB+1 


; start of prog 






$818 B4 4A 00 23 08 28 00 AB 


9109 85 9C 


STA LSTLIN+1 








$820 31 30 FF 29 08 32 00 80 


910B A2 00 REST1 LDX #ENDLIN 




o 




$828 00 00 00 


910D 20 F0 90 


JSR WRTBYT 


;Put $00 before 








9110 A0 01 


LDY #$01 


; current line 






During Pass #1, while CMPRSS is 


9112 Bl 9B 


LDA (LSTLIN), 


Y ;Load lo-byte 






flagging all referenced lines with $FF 


9114 AA 


TAX 


;of next line ptr trans 


o 




tokens, it occurred to me that the 


9115 C8 


INY 


;to X-Register 






routine might as well check that these 


9116 Bl 9B 


LDA (LSTLIN), 


Y ;load hi-byte 






line numbers actually exist and so I 


9118 85 9C 


STA LSTLIN+1 


; Update LSTLIN 


o 




have incorporated Peter Meyer's 


911A 86 9B 


STX LSTLIN 






GOTO/GOSUB checker from the 


911C 88 


DEY 








December 1982 edition of MICRO. The 


911D Bl 9B 


IDA (LSTLIN), 


Y ;End of Prog? 








911F D0 EA 


BNE REST1 


;No-so loop 


© 






9121 60 


RTS 










9122 20 FB DA SECOND JSR CRD0 


; Start of PASS2 
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\^':-A^. + ±}\ 








o 


9125 A9 8F 
9127 A0 94 


LDA #< PASS2A 
LDY #> PASS2A 


; Print PASS2 mes 


process of Pass #1 goes something like 
this: 




9129 20 3A DB 


JSR STROUT 






912C 20 FB DA 


JSR CRDO 




(a) Locate a GOTO, GOSUB or THEN 




912F A9 FF 


LDA #REFLIN 


Init variables 


token. 


o 


9131 85 04 


STA LASTX 




(b) Call the Applesoft Interpreter 




9133 A5 67 


LDA TXTTAB 




routine LINGET to get the 




9135 85 9B 


STA LSTLIN 




'decimalized' line number and convert 


© 


9137 85 02 


STA NEWPTR 




it to hexadecimal. 


9139 85 B8 


STA OLDPTR 




(c) Call the Applesoft Interpreter 




913B A5 68 


LDA TXTTAB+1 




routine FNDLIN to locate the line 





913D 85 9C 
913F 85 03 
9141 85 B9 


STA LSTLIN+1 
STA NEWPTR+1 
STA OLDPTR+1 




number in the Applesoft program. 

(d) If it is found, store $FF in the byte 




9143 A5 AF 


LDA EPROG 




immediately preceding the line; 




9145 85 08 


STA OLDEOP 




otherwise print an error message on the 


o 


9147 A5 B0 


LDA EPROG+1 




screen and set the error flag. 




9149 85 09 


STA OLDEOP+1 




(ej Repeat until the end of the 




914B A9 00 


LDA #ENDLIN 




Applesoft program is reached. 


o 


914D 85 0A 


STA LSTEOS 




Other Applesoft Interpreter routines 




914F 85 01 


STA IFFLAG 




used are: 




9151 20 05 94 


JSR DECOLD 




CH- 




9154 20 F7 93 


JSR DECNEW 




RGET increment TXTPTR, the 


© 


9157 20 C5 93 
915A 20 39 93 


JSR GETLIN 
JSR NEWLIN 


Get 1st In* 
Init LINBUF 


text pointer and load the 




915D 20 22 94 GETBYT JSR GETOLD 


Get next byte 


next byte of the Applesoft 


© 


9160 C9 FF 


CMP iWREFLIN 


EOLine Ref 


program into the 


9162 F0 04 


BEQ GB1 


Yes-so branch 


Accumulator. 




9164 C9 00 


CMP #ENDLIN 


EOLine Unref 


CH- 




9166 D0 17 


BNE GB2 


No-so branch 


RGOT same as CHRGET but does 


© 


9168 85 0A GB1 


STA LSTEOS 


Recall last End 


not increment TXTPTR. 




916A 85 FC 


STA TEMP 


of Statmt Token 


STX- 




916C 20 D0 91 


JSR EOL 


Deal with EOL 


TPT initialize TXTPTR to the 




916F 90 EC GB1A BCC GETBYT 




byte immediately preceding 


o 


9171 20 6E 93 
9174 A9 9A 


JSR EOP 

LDA #< PASS2B 


Deal v EOProg 
; Print END PASS2 


the start of the Applesoft 




9176 A0 94 


LDY #> PASS2B 




program in preparation for 


© 


9178 20 3A DB 


JSR STROUT 




scanning through it. 


917B 20 FB DA 


JSR CRDO 




CRDO output a carriage return to 




917E 60 


RTS 




the screen 




917F C9 3A GB2 


CMP #COLON 


Colon? 


STR- 


© 


9181 D0 06 


BNE GB3 


No-so branch 


OUT prints a text string to the 




9183 20 02 92 


JSR EOS 


Deal v EOStmt 


screen (used for messages). 




9186 4C 5D 91 


JMP GETBYT 


Get next byte 


LINPRT prints a two-byte 


© 


9189 C9 AA GB3 


CMP #LETTOK 


LET token? 


hexadecimal number as a 


918B F0 D0 


BEQ GETBYT 


Yes - ignore 


decimal number to the 




918D C9 B2 


CMP iilREMTOK 


REM token? 






918F D0 06 


BNE GB4 


No-so branch 


screen. 


© 


9191 20 ID 92 


JSR REMARK 


Deal with REM 


By using these routines, I was able 


9194 4C 6F 91 


JMP GB1A 


Check EOP 


to considerably reduce the amount of 




9197 C9 82 GB4 


CMP iWJXTTOK 


NEXT token? 


memory occupied by CMPRSS; it 




9199 D0 06 


BNE GB5 


No-so branch 


occupies 3 pages of memory less than 


© 


919B 20 59 92 


JSR NEXTX 


Deal w NEXT 


COMPRESS and, in addition, it also 




919E 4C 5D 91 


JMP GETBYT 




checks for unreferenced line numbers. 




91A1 C9 22 GB5 


CMP #QUOTE 


Is it a quote? 


If any unreferenced line numbers 


© 


91A3 D0 06 


BNE GB6 


No-so branch 


are encountered during Pass #1, the 


91A5 20 85 92 
91A8 4C 5D 91 
91AB 20 2A 94 GB6 


JSR STRING 
JMP GETBYT 
JSR LETTER 


Deal with quote 
Is it a letter? 


Applesoft program will not be 
compressed. CMPRSS cannot just 





91AE B0 06 


BCS GB7 


No-so branch 


return control to Applesoft however, 


91B0 20 A6 92 


JSR VARIBL 


Yes-must be var 


because the Applesoft program will be 




91B3 4C 5D 91 


JMP GETBYT 




sprinkled with $FF tokens. Before 




91B6 C9 AD GB7 


CMP #IFTOK 


IF token? 


returning control to the Interpreter, a 


o 


91B8 D0 08 


BNE GB8 


No-not special 


routine called RESTOR is executed 




91BA A4 01 


LDY IFFLAG 


If IFFLAG isn't 


which replaces all $FF bytes with $00 




91BC D0 04 


BNE GB8 


then leave 


bytes. Return is then made via the DOS 


© 


91BE A4 04 
91C0 84 01 


LDY LASTX 
STY IFFLAG 


Reraem beg of IF 


warm start vector at $3D0. 




91C2 20 IB 94 GB8 


JSR PUTBUF 


Byte in LINBUF 






91C5 90 96 


BCC GETBYT 


LINBUF not full 
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91C7 20 AE 93 


JSR BAKTRK 


LINBUF full so 






91CA 20 39 93 


JSR NEWLIN 


backtrk, start 





If no unreferenced line numbers are 


91CD 4C 5D 91 


JMP GETBYT 


new In, nxt byte 




encountered, CMPRSS enters Pass #2 


91D0 C9 FF EOL 


CMP #REFLIN 


Deal w EOL 




which is the compression phase. Our 


91D2 D0 15 


BNE E0L2 


Ref line - No 


© 


sample program, after compression will 


91D4 A9 00 EOLX LDA #ENDLIN 


,Yes Replace $FF 




look like this: 


91D6 20 IB 94 


JSR PUTBUF 


w $00 In LINBUF 






91D9 20 9B 93 


JSR TRNBUF 


Transfer LINBUF 




10 INPUT J : IF J = THEN 50 


91DC 




;to new program 





30 PRINT J : GOTO 10 


91DC 20 C5 93 EOL0 JSR GETLIN 


Get nxt Ap ln# 




50 END 


91DF B0 04 


BCS E0L1 


Branch if EOP 




which in memory will look like: 


91E1 20 39 93 


JSR NEWLIN 


Newln In LINBUF 







91E4 18 


CLC 


Flag not EOP 




$800 00 10 08 0A 00 84 4A 3A 


9IE5 20 D5 92 E0L1 JSR RESOLD 


Rset OLDBEG ptr 




$808 AD 4A D0 30 C4 35 30 00 


91E8 60 


RTS 






$810 IB 08 IE 00 BA 4A 3A AB 


91E9 A5 01 E0L2 LDA IFFLAG 


Force EOL? 


© 


$818 31 30 00 21 08 32 00 80 


91EB D0 E7 


BNE EOLX 


Yes-so branch 




$820 00 00 00 


91ED A9 3A 


LDA #C0L0N 


Colon-mark EOS 






91EF 86 04 


STX LASTX 


Updte LASTX ptr 




All $FFs have been replaced by $00 


91F1 20 IB 94 


JSR PUTBUF 


Colon In LINBUF 


© 


again. This program has been 


91F4 90 05 


BCC E0L4 


Not full-branch 




compressed by 8 bytes or 20% of the 


91F6 CA E0L3 DEC 






original size. Programs containing 


91F7 A9 FF 


LDA #REFLIN 


Force EOL 


© 


REMs and long variable names show 


91F9 D0 D5 


BNE EOL 


Always branch 




much more spectacular reductions 


91FB 20 C5 93 E0L4 JSR GETLIN 


Get new ln# 




after compression. 


91FE B0 F6 


BCS E0L3 


EOP - branch 






9200 90 E3 


BCC E0L1 


Not EOP-branch 







9202 86 04 EOS 


STX LASTX 


Deal w EOS 




Techniques used by CMPRSS foi 
Compression 


9204 20 IB 94 
9207 90 0C 
9209 CA 


JSR PUTBUF 
BCC E0S1 
DEX 


Updte LASTX ptr 
LINBUF not full 


© 




920A A9 00 


LDA #ENDLIN 


terminate In 




(a) Concatenation of statements and 


920C 20 IB 94 


JSR PUTBUF 


$00 In LINBUF 




removal of line numbeis. 


920F 20 9B 93 


JSR TRNBUF 




© 


As many statements as possible are 


9212 20 39 93 


JSR NEWLIN 


Start a new line 




concatenated onto each line (to a 


9215 




;ln LINBUF 




maximum of 255 characters per line). 


9215 20 D5 92 E0S1 JSR RESOLD 


Reset OLDBEG ptr 




This often results in longer lines than 


9218 A9 00 


LDA #ENDLIN 




© 


can ever be keyed in manually through 


921A 85 0A 


STA LSTEOS 


Set last EOS to 




the keyboard. Referenced lines cannot 


921C 60 


RTS 


$00 




be concatenated, so the process stops 
when an $FF token is encountered. 


921D 20 22 94 REMARK JSR GETOLD 
9220 C9 FF CMP #REFLIN 
9222 F0 08 BEQ REM1 


Deal with REM 
1st loop reading 
bytes until EOL 


© 


Also, if an IF statement occurs in the 


9224 C9 00 


CMP #ENDLIN 


($00 or $FF) Is 




Applesoft line, then the next line 


9226 D0 F5 


BNE REMARK 


reached 


© 


cannot be concatenated on the end or it 


9228 A0 00 


LDY #$00 


Set Y-reg to re- 




will alter the logic flow of the program. 


922A 




; member that 




E-g., 


922A F0 02 


BEQ REM2 


$00 was EOL 






922C A0 01 REM1 LDY #$01 


or $FF was EOL 





100 IF A = B THEN A = A + 1 


922E 85 FC REM2 STA TEMP 


Temp store EOL 




110 B = B + 1 


9230 E0 04 


CPX #$04 


,1s REM on sep In? 




cannot be compressed as: 


9232 F0 04 


BEQ REM3 


,Yes, so branch 


© 




9234 CA 


DEX 


;No, so drop REM 




100 IF A = B THEN A = A + 1 : 
B = B + 1 


9235 4C D0 91 


JMP EOL 






9238 A5 0A REM3 LDA LSTEOS 


,1s Rem referencd 




because in the original program, B = B 


923A D0 07 


BNE REM4 


;Yes, so branch 


O 


+ 1 is always performed regardless of 


923C C0 00 


CPY #$00 


,1s nxt In ref? 




the values of A and B, whereas in the 


923E F0 11 


BEQ REM5 


;No, so branch 




"compressed" version B = B + 1 is 


9240 4C DC 91 


JMP EOL0 


;Drop Rem line 


O 


only executed when A = B. This is of 


9243 C0 00 REM4 CPY #$00 


,1s nxt In ref? 


paramount importance. Take the 


9245 F0 0A 


BEQ REM5 


,No, so branch 




following example from Mr. Bauers' 


9247 A9 B2 


LDA #REMT0K 


; Retain REM, put 




article: 


9249 20 IB 94 


JSR PUTBUF 


; token in LINBUF 


O 


924C A9 FF 


LDA #REFLIN 


.Force EOL 




(1) 10 GOTO 50 


924E 4C D0 91 


JMP EOL 






20 J = 5 


9251 A5 0A REM5 LDA LSTEOS 


, Carry LSTEOS 




50 END 


9253 85 FC 


STA TEMP 


;to next line 


© 




9255 20 C5 93 


JSR GETLIN 


;Get nxt In # 






9258 60 


RTS 
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. ..v 










© 


9259 20 IB 94 


NEXTX 


JSR PUTBUF 


Deal w NEXT stm 






925C 90 07 




BCC NEXTA 


NEXT token In 






925E 20 AE 93 




JSR BAKTRK 


LINBUF, branch 


His COMPRESS would leave this 




9261 




;lf not full else backtrack 


program as it is, because although line 


© 


9261 




;to previous EOS 


#20 is not referenced, he says that 


: 


9261 20 39 93 




JSR NEWLIN 




concatenating it onto line #10: 




9264 60 




RTS 






© 


9265 20 22 94 


NEXTA 


JSR GETOLD 




(11) 10 GOTO 50 : J = 5 
50 END 


9268 C9 FF 




CMP #REFLIN 






926A F0 15 




BEQ NEXTB 




would cause the J = 5 statement never 




926C C9 00 




CMP #ENDLIN 




to be executed. This is true, but in fact, 


O 


926E F0 11 




BEQ NEXTB 




if you carefully examine the original 




9270 C9 3A 




CMP #COLON 


EOS yet? 


program, (i), you will see that it will 




9272 F0 0D 




BEQ NEXTB 


Yes, so branch 


not even be executed in the original! So 




9274 C9 2C 




CMP #COMMA 


More than one 


the program at (ii) is perfectly 


O 


9276 






var In NEXT? 




9276 D0 ED 




BNE NEXTA 


No, so branch 


acceptable because it behaves 




9278 A9 3A 




IDA #COLON 


Write a : NEXT 


identically to the original. It is perhaps 


O 


927A 20 IB 94 




JSR PUTBUF 


for each comma 


preferable to [i) because it emphasizes 




927D A9 82 




IDA jCNXTTOK 


Load NEXT Into 


the "dead code". As soon as you see 




927F D0 D8 




BNE NEXTX 


Aocura, always BR 


the J = 5 appended to the GOTO 




9281 20 05 94 


NEXTB 


JSR DECOLD , 


Backstep OLDPTR 


statement, you can see that there is 


© 


9284 60 




RTS 


and return 


something wrong. If there is no "dead 




9285 20 IB 94 


STRING 


JSR PUTBUF 


Deal w Quoted Str 


code" in your program, then all lines 




9288 90 07 




BCC COPYST 


Put quote In LIN 


following a terminal statement such as 


© 


928A 






BUF, BR not full 


GOTO, RETURN, STOP or END will 




928A 20 AE 93 
928D 20 39 93 
9290 60 


SBAK 


JSR BAKTRK 
JSR NEWLIN 
RTS 


Full, so backtrak 
to end of prev 
stm, start new 


always be referenced and there is no 
need for CMPRSS to take any special 


© 


9291 






line In LINBUF 


action. 




9291 20 22 94 


COPYST 


JSR GETOLD 




(b) Removal of REMs 




9294 20 IB 94 




JSR PUTBUF 




It is important, especially in a large 


© 


9297 B0 Fl 




BCS SBAK 


If LINBUF full BR 


program, to liberally sprinkle the 


9299 CA 




DEX 




program with meaningful REMarks - it 




929A A9 22 
929C DD 00 95 




IDA #QUOTE 
CMP LINBUF, X 


Is char Just 
placed a quote 


makes the program listing much easier 


© 


929F F0 03 




BEQ CLQUOT 


Yes, so branch 


to follow. But REM statements are 


92A1 E8 




INX 


Restore X-reg 


included in a program for 




92A2 D0 ED 




BNE COPYST 


Always branch 


documentation purposes only and serve 




92A4 E8 


CLQUOT 


INX 


Restore X-reg 


no useful purpose during execution. In 


© 


92A5 60 




RTS 




fact, the text of a REM occupies many 




92A6 20 IB 94 


VARIBL 


JSR PUTBUF 


Truncate var 


valuable bytes of memory and often is 




92A9 




;name to maximum 2 chars 


assigned a line number of its own so 


© 


92A9 90 07 




BCC VAR1 


LINBUF not full BR 


that, apart from the text of the REM 


92AB 20 AE 93 


VBAK 


JSR BAKTRK 




(one byte per character], an additional 




92AE 20 39 93 
92B1 60 
92B2 20 22 94 
92B5 20 2A 94 




JSR NEWLIN 

RTS 

JSR GETOLD 

JSR LETTER 




four bytes for the line number and link 


© 


VAR1 


Get next byte 
Is it a letter? 


bytes, one byte for the REM token and 
one byte for the end-of -statement token 




92B8 90 05 




BCC VAR2 


Yes, so branch 


are wasted. If the REM statement 




92BA 20 38 94 




JSR NUMBER 


Is It a number? 


occupies a line of its own, then 


© 


92BD B0 12 




BCS VAR4 


No, so branch 


CMPRSS will remove it entirely if it is 




92BF 20 IB 94 


VAR2 


JSR PUTBUF 


Put 2nd char In 


not referenced. If it is referenced but 




92C2 B0 E7 




BCS VBAK 


LINBUF, If full BR 


the following line is not referenced, the 


© 


92C4 20 22 94 


VAR3 


JSR GETOLD 




REM line is also removed as shown 


92C7 20 2A 94 




JSR LETTER 




below: 




92CA 90 F8 




BCC VAR3 








92CC 20 38 94 




JSR NUMBER 




50 GOSUB 1000 


© 


92CF 90 F3 




BCC VAR3 








92D1 20 05 94 


VAR4 


JSR DECOLD 


Dec OLDPTR and 






92D4 60 




RTS 


return 


1000 REM THIS IS A SUBROUTINE 




92D5 A4 01 


RESOLD 


LDY IFFLAG 


Reset OLDBEG 


1010 A = 10 


© 


92D7 D0 08 




BNE RSI 


ptr except In 


... 




92D9 A5 B8 




IDA OLDPTR 


mid of an IF 






92DB 85 05 




STA OLDBEG 




1090 RETURN 


© 


92DD A5 B9 




IDA OLDPTR+1 






92DF 85 06 




STA OIDBEG+1 








92E1 60 


RSI 


RTS 
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92E2 20 FB DA SUMARY JSR CRDO ; Print result of 






92E5 A9 A6 


IDA #<MESS1 j empress to scrn 


O 




92E7 A0 94 


LDY iOMESSl jprnt orig lngth 






92E9 20 3A DB 


JSR STROUT 




If line #1010 is not referenced, it does 


92EC 38 


SEC 




not matter whether it has line #1010 or 


92ED A5 08 


IDA 0IDE0P 


O 


line #1000, so the REM will be 


92EF E5 67 


SBC TXTTAB 




completely removed and the 


92F1 AA 


TAX 




unreferenced line, A = 10, will be 


92F2 A5 09 


IDA 0IDE0P+1 


O 


given the line number of the referenced 


92F4 E5 68 


SBC TXTTAB+1 




REM. E.g., 


92F6 20 24 ED 


JSR LINPRT 




1000 A = 10 


92F9 20 2E 93 


JSR PRTIA 




92FC A9 C0 


IDA IKMESS2 ;pmt lngth of 


O 


This does not alter the performance 


92FE A0 94 


LDY 0>MESS2 ;compressd prog 




of the program and saves 6 bytes more 


9300 20 3A DB 


JSR STROUT 




than Mr. Bauers' COMPRESS which 


9303 38 


SEC 





would compress the same statements 


9304 A5 AF 


IDA EPR0G 


as: 


9306 E5 67 


SBC TXTTAB 






9308 AA 


TAX 




1000 REM 


9309 A5 B0 


IDA EPROG+l 





1010 A = 10 


930B E5 68 


SBC TXTTAB+1 




The only time that a REM token has 


930D 20 24 ED 


JSR LINPRT 




to remain in the program is when it is a 
referenced REM and the following line 
is also referenced. E.g., 


9310 20 2E 93 
9313 A9 D7 
9315 A0 94 
9317 20 3A DB 


JSR PRTIA 

IDA 1KMESS3 jprnt # of bytes 
LDY #>MESS3 J compressed 
JSR STROUT 





15 GOSUB 500 


931A 38 


SEC 







931B A5 08 


IDA OLDE0P 






931D E5 AF 


SBC EPROG 




500 REM THIS IS A REM 


93 IF AA 


TAX 




510 INPUT X,Y 


9320 A5 09 


IDA 0LDE0P+1 





520 IF X = OR Y = THEN 510 


9322 E5 B0 


SBC EPR0G+1 • 




530 RETURN 


9324 20 24 ED 


JSR LINPRT 






9327 20 2E 93 


JSR PRTIA 




This would compress to: 


932A 20 FB DA 


JSR CRDO 





15 GOSUB 500 


932D 60 


RTS 






932E A9 E7 PRTLA IDA §< MESS1A jprnt the word 






9330 A0 94 


LDY #>MESS1A J bytes after the 





500 REM 


9332 20 3A DB 


JSR STROUT j above 3 messge 




510 INPUT X , Y : IF X = OR 


9335 20 FB DA 


JSR CRDO 




Y = THEN 510 


9338 60 


RTS 




530 RETURN 


9339 A9 00 NEWLIN IDA 0ENDLIN ; Start a new In 





If the REM is at the end of a 


933B 85 01 


STA IFFLAG jin LINBUF, 1st 




multistatement line, it is always 


933D 


; reset 0LDBEG and IFFLAG 




removed completely and, if possible, 


933D 20 D5 92 
9340 20 5F 93 


JSR RESOLD 

JSR WRTLNK ; Write the link 





other lines will be concatenated in its 


9343 A5 02 


IDA NEWPTR ; bytes at beg 




place. E.g., 


9345 


jof last compressed line 




100 XI = X : REM SAVE X-C00RDINATE 


9345 85 9B 


STA LSTLIN ; Remember positn 


© 


110 Yl = Y : REM SAVE Y-C00RDINATE 


9347 A5 03 


IDA NEWPTR+1 ;of strt of new 




120 INPUT X,Y 


9349 85 9C 


STA LSTLIN+1 ;ln Just being 






934B 


; commenced 




would compress as: 


934B 20 F7 93 


JSR DECNEW j reset NEWPTR 





100 XI = X : Yl = Y : INPUT X,Y 


934E A2 02 


LDX #$02 j Write nxt In # 






9350 A5 FA 


IDA LN1 j at start of LINBUF 




a very spectacular compression of the 


9352 9D 00 95 


STA LINBUF, X 


O 


original 68 bytes into 21 bytes! This is 


9355 E8 


INX 


70% compression. 


9356 86 04 


STX LASTX ;Init LASTX for 




(c) Removal of LETs 


9358 A5 FB 


IDA LN1+1 ;new line 




Because the two statements, LET A = 


93 5 A 9D 00 95 


STA LINBUF, X 


O 


B and A = B mean exactly the same 


93 5D E8 


INX 




thing, CMPRSS removes the 


93 5E 60 


RTS 




unnecessary LET token, saving one 
byte. 


935F A0 00 WRTLNK LDY #$00 ; Write link bytes 
9361 20 E9 93 JSR INCNEW ;at start of last 


O 


9364 A5 02 


IDA NEWPTR ; compressed line 






9366 91 9B 


STA ( LSTLIN ),Y 






9368 C8 


INY 







9369 A5 03 


IDA NEWPTR+1 






936B 91 9B 


STA ( LSTLIN ),Y 
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(d) Removal of Variable Names fiom 




936D 60 


RTS 




NEXT Statements 


o 


936E 20 5F 93 EOP 


JSR WRTLNK 


;Deal with EOP 


Not only does the removal of the 




9371 20 97 D6 


JSR STXTPT 


;Put $00 before 


variable name(s) associated with a 




9374 A9 00 


IDA #$00 


;lst byte of new 


NEXT token save memory, but it also 


o 


9376 A8 

9377 91 B8 


TAY 

STA (TXTPTR), 


;prog In case a 
Y ; Write two 


enables the Applesoft interpreter to 




9379 91 02 


STA (NEWPTR), 


Y ; extra $00 


execute the FOR.. NEXT loop(s) faster, 




937B 20 E9 93 


JSR INCNEW 


; bytes to new 


because it obviates the need for it to 


o 


937E 91 02 


STA (NEWPTR), 


Y jprog (3 in a 


check that the variable name refers to 




9380 20 E9 93 


JSR INCNEW 


;row is EOP) 


the currently active FOR. CMPRSS 




9383 A5 02 


IDA NEWPTR 




correctly performs this removal even in 


o 


9385 85 AF 


STA EPROG 


;Set new EOP ptr 


the instance where more than one 


9387 85 69 


STA LOMEM 


;Set new LOMEM 


FOR.. NEXT loop terminates on the 




9389 85 6B 


STA ARS 


;Set new strt of 


same statement: 




938B 




; array space 




o 


938B 85 6D 


STA EARS 


;Set new end of 


100 NEXT 11, 12 


93 8D A5 03 


IDA NEWPTR+1 


; array space 


CMPRSS will transform this into: 




938F 85 B0 
9391 85 6A 


STA EPROG+1 
STA LOMEM1 




100 NEXT : NEXT 


o 


9393 85 6C 


STA ARS+1 




saving one byte for each character of 




9395 85 6E 


STA EARS+1 




each variable name removed. 




9397 20 E2 92 


JSR SUMARY 


; Print results 


(e) Truncation of Variable Names To a 


G 


939A 60 


RTS 


;of compression 


Maximum of 2 Characters 




939B CA TRNBUF DEX 


: Transfer LINBUF 






939C 


;to New Program Area 


No longer is it necessary for you to 




939C 86 07 


STX MAXX 


; Store max loop 


name all your variables with 


o 


939E A2 00 


LDX #$00 


; Reset X-reg for 


meaningless names like A$,C1%, Q2 




93A0 




; transfer loop 


etc. to save space. You can give your 




93A0 BD 00 95 LOOPl IDA LINBUF, X 


;Load next byte 


variables longer, more meaningful 




93A3 




jfrom LINBUF 


names like AMOUNT, NAMES etc. 


o 


93A3 20 13 94 


JSR PUTNEW 


; Trans to new 


and retain these in the listable 'source' 




93A6 E8 


INX 


; program area 


version for ease of understanding what 




93A7 E4 07 


CPX MAXX 


;Loop complete? 


the program is doing. But the Applesoft 


© 


93A9 F0 F5 BEQ LOOPl 
93AB 90 F3 BCC LOOPl 
93AD 60 RTS 
93 AE A6 01 BAKTRK LDX IFFLAG 


;No, so do again 
;No, so do again 


interpreter only recognizes the first 2 
characters of a variable name, so 




jBacktrk to prev 


variables AMOUNT and AMT would 


© 


93B0 


;EOS or start 


of IF statemt 


be identical as far as Applesoft is 




93B0 D0 02 


BNE BK1 




concerned. It will only recognize the 




93B2 A6 04 


LDX LASTX 


; Reset X-reg to 


AM. CMPRSS uses this fact to reduce 




93 BA A9 00 BK1 


IDA #ENDLIN 


jprev EOS 


your program as much as possible. 


© 


93B6 20 IB 94 


JSR PUTBUF 




AMOUNT becomes AM and NAMES 




93B9 A5 05 


IDA OLDBEG 




becomes NA$. The compressed version 




93BB 85. B8 


STA OLDPTR 




is hard to read, but you should never 


© 


93BD A5 06 


IDA OLDBEG+1 




list the compressed version. It will 




93BF 85 B9 

93 CI 20 9B 93 

93 CA 60 

93C5 A0 02 GET 


STA OLDPTR+1 
JSR TRNBUF 
RTS 




certainly operate the same as the 
original, but much more efficiently. 


© 


LIN IDY #$02 


;Get In # of 


You should always keep two versions 




93 C7 Bl B8 


IDA (OLDPTR) 


Y jcurr old In 


of your program, the original, readable 




n3C9 F0 1C 


BEQ GET1 


;If hlbyte of link- 


version and the compressed one. 


Q 


93 CB C8 


INY 


jbyte pair is zero 




93 CC 




jthen this is EOP 






93CC Bl B8 


IDA (OLDPTR) 


Y ;Get lobyte 


Executing CMPRSS 




93 CE 85 FA 


STA LN1 


; remember it 







93D0 C8 


INY 


; Update last 


1. Type BRUN CMPRSS (RETURN). 




93D1 




;EOS byte 


This will load CMPRSS at $9000 and 




93D1 Bl B8 


IDA (OLDPTR) 


Y ;Get hibyte 


reset HIMEM to protect itself. It also 




93D3 85 FB 


STA LN+1 


; remember it 


installs the '&' vector to enable 


o 


93D5 A5 FC 


IDA TEMP 


; Update last 


CMPRSS to be easily run. 




93D7 




;EOS byte 


2. If your Applesoft program is already 


o 


93D7 85 0A 
93D9 20 F0 93 
93DC 20 F0 93 


STA LSTEOS 
JSR INCOLD 
JSR INCOLD 


;Get OLDPTR just 
; before 1st byte 
;of actual Apple 


in memory, type & (RETURN) and 
your program will be compressed; 




93DF 20 F0 93 


JSR INCOLD 


;soft line 


otherwise key in or LOAD your 




93E2 20 F0 93 


JSR INCOLD 




Applesoft program from disk and then 


o 


93E5 18 


CLC 


;Flag not EOP 


type & (RETURN). Compression takes 




93E6 60 


RTS 




a mere 5 seconds or so for the largest 




93E7 38 GET1 SEC 


;Flag EOP 


program. 



50 



MICRO 



No. 73 ■ July 1984 



















It is important to note that 
you should always SAVE the 


93E8 60 
93E9 E6 02 


INCNEW 


RTS 

INC NEWPTR 


;Incr NEWPTR 


Q 




"uncompressed" version BEFORE you 


93EB D0 02 




BNE INI 








run CMPRSS, or the valuable REMs 


93ED E6 03 




INC NEWPTR+1 








and meaningful variable names will be 


93EF 60 


INI 


RTS 








lost forever. 


93F0 E6 B8 


INC0LD 


INC 0LDPTR 


;Incr 0LDPTR 


© 




If there are no non-existent line 


93F2 D0 02 




BNE IN2 








numbers, the display on the screen will 


93F-4 E6 B9 




INC 0LDPTR+1 








look something like: 


93F6 60 


IN2 


RTS 




© 






93F7 18 


DECNEW 


CLC 


;Decr NEWPTR 






*** PASS 1 *** 


93F8 A5 02 




IDA NEWPTR 








*** END PASS 1 *** 


93FA 69 FF 
93FC 85 02 
93FE A5 03 




ADC #$FF 
STA NEWPTR 
LDA NEWPTR+1 




Q 




*** PASS 2 *** 


9-400 85 03 
9-402 69 FF 




ADC #$FF 
STA NEWPTR+1 




o 






9-40-4 60 




RTS 






OLD PROGRAM LENGTH: 1622-4 BYTES 


9-405 18 


DEC0LD 


CLC 


;Decr 0LDPTR 






NEW PROGRAM LENGTH: 9528 BYTES 


9-406 A5 B8 




LDA 0LDPTR 








PROGRAM COMPRESSED BY: 6696 BYTES 


9-408 69 FF 




ADC #$FF 




© 




*** END PASS 2 *** 


9-40A 85 B8 
9-40C A5 B9 




STA 0LDPTR 
LDA 0LDPTR+1 








If, however, non-existent line 
numbers have been encountered during 


9-40E 69 FF 
9-410 85 B9 
9-412 60 
9413 20 E9 93 




ADC #$FF 
STA 0LDPTR+1 
RTS 




© 




Pass #1, they will be reported and your 


PUTNEW 


JSR INCNEW 


; Store Accum in 






program will not be compressed. The 


9-416 A0 00 




LDY #$00 


;new prog area 


© 




display, in this case, will look 


9-418 91 02 




STA (NEWPTR), 


Y 




something like this: 


9-41A 60 




RTS 










9-41B 9D 00 95 


PUTBUF 


STA LINBUF,X 


;Put Accum into 






*** PASS 1 *** 


9-41E E8 




INX 


;LINBUF 


© 




8560 GOSUB-4170 


9-41F E0 FD 




CPX #$FD 


;Set if LINBUF 






9000 GOTO3010 


9-421 60 




RTS 


;is full 






9050 THEN9095 


9-422 20 F0 93 


GET0LD 


JSR INC0LD 


;Get a byte from 






***END PASS 1 *** 


9-425 

9-425 A0 00 

9-427 Bl B8 


G0T0LD 


LDY #$00 
LDA (0LDPTR), 


;the old prog 
Y 


© 




*** NOT COMPRESSED *** 


9-429 60 




RTS 




© 






9-42A C9 -41 


LETTER 


CMP #LETTRA 


; Is byte a lettr 






The line numbers of the offending 


9-42C 90 06 




BCC N0LETR 


;If < 'A' then 






statements are 8560, 9000 and 9050. 


9-42E C9 5A 




CMP #LETTRZ 


;not a letter 






The non-existent lines are 4170, 3010 


9-430 90 0-4 




BCC ISLETR 


;If < 'Z',is ltr 


© 




and 9095. 


9-432 F0 02 




BEQ ISLETR 


;If = 'Z',is ltr 






The program resides just below 


943-4 38 


N0LETR 


SEC 


;Set carry, not a letter 






DOS from $9000 to $94FF and the 


9435 60 




RTS 




© 




space from $9500 to $95FF is used for 


9436 18 

9437 60 

9438 C9 30 


ISLETR 


CLC 
RTS 
CMP #ZER0 


; Clear carry, is letter 






the Compressed Line Buffer where the 


NUMBER 


;Is byte number? 






current compressed line is assembled 


943A 90 06 




BCC N0NUMB 


;If < '0',not # 


© 




before being written back into the 


943C C9 39 




CMP #NINE 








Applesoft program. 


943E F0 04 




BEQ ISNUMB 


;If = '9', is # 






Once CMPRSS is installed, your 


9440 90 02 




BCC ISNUMB 


;If < '9', is # 


© 




Applesoft programs may be LOADed, 


9442 38 


N0NUMB 


SEC 


;Set carry, not a number 




changed, SAVEd and CMPRSSed by 


9443 60 




RTS 








merely keying & (RETURN). You can 


9444 18 


ISNUMB 


CLC 


; Clear carry, is number 






even run them and, provided that they 


9445 60 




RTS 




o 




never alter HIMEM, POKE any values 


9446 20 20 20 


GOTO 


ASC 


GOTO 


i 






into memory locations $9000 to $94FF, 


944F 20 20 20 
9458 20 20 20 


GOSUB 
THEN 


ASC 
ASC 


GOSUB 
THEN 


r 
r 






or alter the & vector, CMPRSS will 


9460 2A 2A 2A 


PASS1A 


ASC 


*** PASS 


1 ' 


o 




remain unharmed and may be used 


946B 2A 2A 2A 


PASS1B 


ASC 


*** END 


PASS1 ' 






again and again. If, however, you need 


9479 2A 2A 2A 


ERRMES 


ASC 


*** NOT 


COMPRESSED ' 






the 1.5K bytes which CMPRSS 


948C 2A 2A 2A 


PASS2A 


ASC 


*** PASS 


2 ' 


© 




occupies because you are running a 


9497 2A 2A 2A 


PASS2B 


ASC 


*** END 


PASS 2 ' 




very large program, you can reset 


94A6 4F 4C 44 


MESS1 


ASC 


OLD PROGRAM LENGTH: ' 






HIMEM to just below DOS ($9600) and 


94BC 4E 45 57 


MESS2 


ASC 


NEW PROGRAM LENGTH: ' 






then, next time CMPRSS is required, 


94D1 50 52 4F 


MESS3 


ASC 


PROGRAM 


COMPRESSED BY ' 


© 




you will have to BRUN it from disk 


94E7 20 20 42 
94EF 


MESS1A 


ASC ' BYTES 
END 


! 






again. JMCRO 
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Save time and mathematical aggravation 
with a compilation of defined functions in 
a very friendly program 



EDITOR'S NOTE 

In last month's issue we printed a 
program that allowed you to easily 
access various defined functions. This 
saved time and aggravation when 
working with complicated 
mathematical formulas. As a 
continuation of this approach, we 
present the second of three programs 
which will put a host of valuable 
formulas and functions at your 
fingertips. Again we invite you to send 
in any defined functions you may be 
using that are not mentioned. The 
submissions we receive will be 
collected and published in a future 
issue. 



PROGRAM #2 



This program includes the formulas for 
trigonometric ratios, two formulas 
dealing with matters related to aviation 
(the effect of wind on ground speed and 
density altitude), the formulas for 
converting temperatures from 
Fahrenheit to Celsius and vice versa, 
plus the formulas that comprise Ohm's 
Law and determine the resistance 
factor of electrical wires, and finally 
the formula that determines future 
values based on compound interest, 
present value and the time span to be 
examined. The structure of the 
program is identical to the one 
described above. 



USEFUL 
N 
C 
T 
I 

O 
N 
S 



Part 2 



by Paul Garrison 



- 








o 










1 REM FUNCTIONS (DELETE THOSE NOT USED 


IN A PROGRAM) 






2 PI=3. 14159 








3 RAD=57.2958 






o 


47 DEF FNHYP(X,Y)=SQR(Xt2+Yt2): 
HYPOTENUSE 




REM FIND 




48 DEF FNHX(H,Y)=SQR(Ht2-Yt2): 




REM FIND SIDE 


o 


X,H0RIZ0NAL 






49 DEF FNVY(H,X)=SQR(Ht2-Xt2): 




REM FIND SIDE 




Y, VERTICAL 








50 DEF FNANGL(A)=90-A: 




REM FIND ANGLE A OR B 


o 


51 DEF FNX(H,A)=H*COS(A*(PI/180)): 
BY H 
& A 




REM FIND SIDE X 


o 


52 DEF FNY(H,A)=H*SIN(A*(PI/180)): 




REM FIND SIDE Y 


BY H 








& A 








53 DEF FNB(X,Y)=(ATN(X/Y))*(180/PI): 




REM FIND A OR B BY 


o 


X 

& Y 








60 DEF FNWC(WV,WD,MC,MV)=-1*WV*C0S((WD- 


-MC-MV)/RAD): 


REM WIND 




COMP0NENT,AI CRAFT 






© 


61 DEF FNDENALT(PA,F)=(l45426*(l-(((28£ 


1.15- 






PA*. 001981)/288. 15)t5.2563/( (273. 15+F)/288.15))t. 235)) 




© 
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62 

63 DEF FNFC(F)=(F-32)/1.8: 

64 DEF FNCF(C)=(C*1.8)+32: 

65 DEF FNVA(V,A)=V/A: 

66 DEF FNVO(V,0)=V/0: 

67 DEF FNAO(A,0)=A*0: 

68 DEF FNWR(M,L)=10.4*L/M: 

69 DEF FNCP(PV,I,CP)=PV*(l+(I/100))tCP: 
GRAM TITLE, AUTHOR) 

110 REM (TYPE OF BASIC USED) 

120 GOTO 200 

130 '" 



REM DENSITY ALTITUDE 
REM DEG.F. TO DEG.C. 
REM DEG.C. TO DEG.F. 
REM OHM=VOLT/AMPERE 
REM AMP=VOLT/OHM 
REM VOLT=AMP*OHM 
REM WIRE RESISTENCE 

REM COMPOUND INTEREST100 REM (PRO- 



-":RETURN 



REM TESTING FUNCTIONS 
:GOSUB 130 



140 HOME :VTAB( 10): RETURN 

150 ?:INPUT "Press > RETURN < (Q to quit) ",R$ 

155 IF R$="Q" THEN 160 ELSE RETURN 

160 GOSUB 140.-GOSUB 130:?TAB(33) "End. »:GOSUB 130:END 

190 

200 GOSUB 140:? "Menu:": GOSUB 130:? "Aviation functions: 

210 ?1, "Wind component" 

220 ?2, "Density altitude" 

222 ?3, "Convert degrees F. to degrees C." 

224 ?4, "Convert degrees C. to degrees F. ".-GOSUB 130 

230 ? "Ratios for right triangles: ":GOSUB 130 

240 ? 5, "Find hypotenuse" 

250 ?6, "Find horizontal side (X) " 

260 ?7,"Find vertical side (Y)" 

270 ?8,"Find angles A and B" 

280 ?9, "Find two sides (X & Y) by hypotenuse & angle" 

290 ?10,"Find angles A and B by X and Y":GOSUB 130 

291 ? "Electrical:": GOSUB 130 

292 ?11, "Find ohms" 

293 ? 12, "Find amperes" 

294 ?13 J "Find volts" 

295 ?l4,"Find wire res istence": GOSUB 130 

296 ?15, "Compound interest ": GOSUB 130 
300 ?l6,"Exit program": GOSUB 130 

310 INPUT "Which? ", WHICH: GOSUB 140 

320 ON WHICH GOTO 400,500,600,700,2000,2050,2100,2150,2190,2280,2400,2500,2600,2700,2800,160 

400 ?"Find wind component (effect on aircraft in flight) ": GOSUB 130 



O 



O 



o 



";X: GOSUB 150: GOTO 200 

",PA 
",F 



410 INPUT "Wind direction? ",WD 

420 INPUT "Wind velocity? (knots) ",WV 

430 INPUT "Magnetic course? ",MC 

440 INPUT "Magnetic variation? (E= - / W= +) ",MV 

450 X= FNWC(WV, WD, MC,MV): GOSUB 130 

460 ?"The wind component factor is 

500 ?"Find the density altitude ".-GOSUB 130 

510 INPUT "Pressure altitude? 

520 INPUT "Temperature? (degrees centigrade) 

530 X= FNDENALT( PA, F) .-GOSUB 130 

540 ?"The density altitude is ";X; " feet.":GOSUB 150:GOTO 200 

600 ? "Convert degrees F. to degrees C. "-.GOSUB 130 

610 INPUT "Degrees F.? ",F 

620 X=FNFC(F): GOSUB 130 

630 ?F;" degrees F. equal ";X;" degrees C":GOSUB 150:GOTO 200 

700 ? "Convert degrees C. to degrees F.":GOSUB 130 

710 INPUT "Degrees C? ",C 

720 X=FNCF(C): GOSUB 130 

730 ?C;" degrees C. equal ";X; » degrees F.":GOSUB 150:GOTO 200 

2000 ?"Find the length of the hypotenuse of a right triangle ": GOSUB 130 

2010 INPUT "Enter the horizontal length (X) ",X 



O 
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© 
o 



o 
o 
© 



o 
© 

© 
o 



© 
o 
© 



2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2195 
2200 
2210 
2220 
2225 
2230 
2275 
2280 
2290 
2300 
2310 
2320 
2330 
2400 
2410 
2420 
2430 
2440 
2500 
2510 
2520 

2530 
2540 
2600 
2610 
2620 
2630 
2640 
2700 
2710 
2720 
2730 
2740 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2875 
2880 
2890 



INPUT "Enter the vertical length (Y) ",Y 

X=FNHYP(X,Y) rGOSUB 130 

?"The length of the hypotenuse is ";X: GOSUB 150: GOTO 200 

?"Find the length of the horizontal side (X) of a right triangle ":GOSUB 130 

INPUT "Enter the vertical length (Y) ",Y 

INPUT "Enter the diagonal length (hypotenuse) ",H 

X=FNHX(H,Y) rGOSUB 130 

?"The horizontal length is ";X: GOSUB 150: GOTO 200 

?"Find the length of the vertical side (Y) of a right triangle "rGOSUB 130 

INPUT "Enter the horizontal length (X) ",X 

INPUT "Enter the diagonal length (hypotenuse) ",H 

XX=FNVY(H,X):GOSUB 130 

?"The vertical length is ";XX:GOSUB 150:GOTO 200 

?"Find the angle opposite side X or Y in a right triangle ": GOSUB 130 

INPUT "Enter degrees of one angle ",A 

X=FNANGL(A): GOSUB 130 

?"The other angle is ";X;" degrees": GOSUB 150:GOTO 200 

?"Find the two other sides by hypotenuse and the angle" 

? "between the hypotenuse and the horizontal side ".-GOSUB 130 



INPUT "Enter length of hypotenuse 

INPUT "Enter the degrees of the angle 

X=FNX(H,A):GOSUB 130 

XX=FNY(H,A) 

?"The horizontal length is 

?"The vertical side is 



",H 
",A 



"•X 

";XX: GOSUB 150: GOTO 200 



?"Find the degrees of two angles by sides X and Y":GOSUB 130 



INPUT "Enter horizontal side (X) 

INPUT "Enter vertical side (Y) 

XX=FNB(X,Y): GOSUB 130 

? "Angle A (opposite X) is ";XX; " degrees ":BB=90-XX 

?"Angle B (opposite Y) is ";BB;" degrees" rGOSUB 150:GOTO 200 

?"Find ohms by volts and amperes ": GOSUB 130 

INPUT "Volts? 

INPUT "Amperes? 

X=FNVA(V, A) rGOSUB 130 

?X:" ohms": GOSUB 150: GOTO 200 

?"Find amperes by volts and ohms": GOSUB 130 

INPUT "Volts? 

INPUT "Ohms? 

X=FNVO(V,0) rGOSUB 130 

?X;" amperes": GOSUB 150:GOTO 200 

?"Find volts by amperes and ohms": GOSUB 130 

INPUT "Amperes? 

INPUT "Ohms? 

X=FNAO(0,A):GOSUB 130 

?X;" volts":GOSUB 150:GOTO 200 

?"Find wire resistence by length and mils":GOSUB 130 

INPUT "Length of wire (inches) ",L 

INPUT "Diameter of wire (mils) ",M 

X=FNWR(M,L) rGOSUB 130 

?"Resistence is ";X;" ohms"rGOSUB 150:GOTO 200 

?"Find future value based on interest and compounding periods": GOSUB 130 

INPUT "Present value? $",PV 

INPUT "Annual interest rate? %",! 

INPUT "Compounding periods ( day /month/year )(D/M/Y) ",CP$ 

IF CP$="D" THEN 1=1/365.25 

IF CP$="M" THEN 1=1/12 

INPUT "Period of how many years? ",CP 

IF CP$="D" THEN CP=CP*365.25 

IF CP$="M" THEN CP=CP*12 

X=FNCP (PV, I, CP) rGOSUB 130 

?"The future value is $";Xr GOSUB 150: GOTO 200 



",X 
",Y 



",V 
",A 



",V 
",0 



",A 
",0 



JMCftO 
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feafane 



Commodore [ lor Apple 
Cassette File Loader 



by Artjfiatfr 




Your Apple can read cassette files 
written by a Commodore VIC-20 or 
C64 computer with this assembly 
language program . The file is written 
into a sequential text file on the 
Apple's disk. Three types of files are 
discussed— data files, BASIC programs, 
and memory ranges. 



SHE 



RequiresrAprjkJ]^with-disk drive and 
optional printer, Commodore VIC-20 
or C64 with C2N cassette drive. 

SEE 



SHE 



3SE 



SHE 



I have a Commodore VIC-20 and a C64 
as well as my trusty old Apple II. Of 
course I have a disk drive for the Apple, 
but for mass storage with the 
Commodores I use a C2N cassette tape 
drive ("Datassette") which works 
amazingly well. This article shows 
how the Apple can read cassette files 
written by either Commodore 
computer. The method described here 
can be used to transfer various kinds of 
data. For example, since I do not 
presently have an interface to connect 
my printer to my Commodores, I am 
using this utility to move BASIC 
programs to my Apple, where I can 
make hardcopy listings. It also saves a 
lot of retyping when I want to convert a 
Commodore BASIC program to 
Applesoft. Sorry, though, this program 
only goes one way. I have not yet 
taught the Apple to write cassette files 
that Commodore computers can read, 
but, with the information given here, I 
think such a program would not be very 
difficult to do. 

The assembler listing of the main 
program is shown in Listing 1. 



Listing 1 



0006 
0001 
00C0 
001E 



0006 
0007 



000A 
000C 



0300 
0301 
0302 
0303 
0304 
0305 
0307 



03DC 
03 D6 



0801 
0806 
08C2 
C060 



COMMODORE-TO-APPLE CASSETTE FILE LOADER 

BY ART MATHENY 

Copyright © 198-4 
The Computerist, Inc. 
Chelmsford, MA 0182-4 

RUNS ON APPLE II. 
LOADS A TEXT FILE FROM A 
CASSETTE TAPE WRITTEN BY A 
COMMODORE COMPUTER, AND SAVES 
IT AS AN APPLE DISK FILE. 



O 



CONSTANTS 

SLOT 
DRIVE 
BLOKLEN 
NAMLEN 



EQU 6 
EQU 1 
EQU 192 
EQU 30 



PAGE VARIABLES 



BYTE 

TEMP 

PTR 

ADR 

FMPL 



EQU 6 
EQU 7 
EQU 8 
EQU $A 
EQU $C 



PAGE 3 VARIABLES 



CHSUM 

PAR 

KNT 

SCAN 

KDOWN 

START 

FIN 



EQU $300 
EQU $301 
EQU %2>%2 
EQU $3<i3 
EQU $30-4 
EQU $305 
EQU $307 



DOS SYSTEM CALLS 



LOCFPL 
DOSFM 



EQU $3DC 
EQU $3D6 



SLOT # FOR SAVING FILE 
DRIVE # FOR SAVING FILE 

# OF CHARS IN A BLOCK 

# OF CHARS IN FILE NAME 



BYTE NOW BEING READ 
ZPAGE TEMP STORAGE 
POINTER INTO DATA BUFFER 
ADDR OF MESSAGE TO PRINT 
FILE MGR PARMLIST POINTER 



CHECK SUM BYTE 

PARITY 

BIT COUNTER 

FLAG: DOING SECOND SCAN 

COUNT-DOWN COUNTER 

ADDR WHERE BLOCK STARTS 

ADDR WHERE BLOCK ENDS 



; LOCATE PARMLIST ADDR 
;DOS FILE MANAGER 



OTHER ADDRESSES 

LOMEM EQU $801 ; START OF USABLE MEMORY 

NAME EQU LOMEM+5 ; FILENAME LOCATION 

BODY EQU L0MEM+BL0KLEN+1 ; START OF FILE 

TAPE IN EQU $C060 ; CASSETTE INPUT PORT 

ROM ROUTINES 



o 
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FC58 / LiStinfl1 


, HOME EQU $FC58 ; CLEAR TEXT SCREEN 


Apple has less than 48K of memory, 


FDDA \ c onUnuea) pRBY TE EQU $FDDA ; PRINT A HEX BYTE 


move the origin down to fit the 


© FDF0 


COUT1 EQU $FDF0 ; OUTPUT TO SCREEN 


program below DOS, but start it at the 


9000 


J 




beginning of a memory page. Moving 
the origin will change the machine 
code for every JSR and JMP. 

There are three types of files which I 


ORG $9000 




i 






;SET IRQ MASK TO PREVENT INTERRUPTS 


would like to transfer--data files, 


® 9000 78 


t 




BASIC programs, and memory ranges. 


PROG SEI 




It will be sufficient, though, to transfer 




> 




data files because, as will be shown 




; PRINT HEADING 




later, BASIC programs and memory 


© 


t 




dumps can both be converted into data 


9001 20 58 FC 


JSR HOME 




files prior to the transfer. 


900-4 A9 A3 


IDA 0MESG5 






9006 85 0A 


STA ADR 






© 9008 A9 91 


IDA /MESG5 




Transfer of Data Files 


900A 85 0B 


STA ADR+1 






900C 20 62 93 


JSR PRMESG 




With a Commodore computer, any 


© 


;PUT 1ST BLOCK AT BEGINNING OF THE BUFFER 


kind of data can be written into a tape 








file. To see how this is done, let's work 


900F A9 01 


IDA 0LOMEM 


;FIN = LOMEM 


through a simple example. First put a 


© 9011 8D 07 03 


STA FIN 




scratch cassette in the C2N tape drive 


90U A9 08 


IDA /LOMEM 




and either rewind it to the beginning or 


9016 8D 08 03 


STA FIN+1 




record the tape counter value. A 


© 


') 




filename must be selected, say 
"ANYFILE". A logical file number 




3 






;SET UP POINTERS FOR NEXT BLOCK 


between 1 and 127 must also be 




i 




selected. In the following example, the 


© 

9019 AD 07 03 


LOOP IDA FIN 


; START = OLD FIN 


logical file number is 5: 


901C 8D 05 03 


STA START 


; START — > 


OPEN 5,1,2, "ANYFILE" 


901F 18 


CLC 


; START OF BLOCK 


The device number is 1, which denotes 


© 9020 69 C0 


ADC 0BLOKLEN 


;FIN = START+BLOKLEN 


the cassette drive. The 2 indicates an 


9022 8D 07 03 


STA FIN 


;FIN — > 


intention to write to the file and to put 


9025 AD 08 03 
@ 9028 8D 06 03 
902B 69 00 


IDA FIN+1 
STA START+1 

adc m 


; END OF BLOCK + 1 


an end-of-file marker at the end. Once 
the file has been opened, data can be 


902D 8D 08 03 


STA FIN+1 




written to it with PRINT # statements 


9030 C9 90 


CMP /PROG 


; BUFFER FULL 


such as the following: 


© 9032 B0 36 


BCS ERR9 


;IF SO, QUIT READING 


PRINT #5, "ANY CHARACTER 


© 


) 




STRING ";CHR$( 13) 

FOR K=l TO 10 : PRINT #5,K;CHR$(13) 

: NEXT 

Since more than one file can be open at 


;READ A BLOCK 




i 




903^ A9 00 


Ida n 


;SCAN=0: 


once (i.e. on other devices), the logical 


© 9036 8D 03 03 


STA SCAN 


; LOAD THE BLOCK 


file number, 5 in this example, must be 


9039 20 19 92 


JSR BLOCK 




specified. When the program is finished 


903C A9 01 


IDA #1 


;SCAN=1: 


writing, it should close the file: 


903E 8D 03 03 


STA SCAN 


; VERIFY THE BLOCK 




© 9041 20 19 92 


JSR BLOCK 




CLOSE 5 


9044 A9 2E 


IDA # < . ' 


; PRINT A PERIOD 


The logical file number used here 


9046 20 F0 FD 


JSR COUT1 




indicates which file is to be closed. The 


© 


) 




data file on the tape is now ready for 




t 




transfer. 




; CHECK FOR END OF FILE 




Rewind the tape to the beginning of 
the file and move the tape to a tape 


t 




® 9049 AD 05 03 


' LDA START 


;PTR = START 


player connected to the Apple's 


904C 85 08 


STA PTR 




cassette input. Now BRUN the cassette 


904E AD 06 03 


IDA START+1 




file loader. Figure 1 shows the Apple's 


© 9051 85 09 


STA PTR+1 




TV display after a successful load 


9053 A0 00 


LDY H 


;LOOK AT 1ST CHAR 


operation. The program prints a period 


9055 Bl 08 


IDA (PTR),Y 


; OF BLOCK 


for every "block" that it reads 


9057 C9 05 

© 9059 F0 31 

905B C9 02 

90 5D D0 BA 


CMP #5 
BEQ EOFMARK 
CMP #2 
BNE LOOP 


;EOF MARKER 
; BRANCH IF SO 
;DATA BLOCK 
;BRANCH IF NOT 


successfully. That lets you know that it 
is still working, which is a comfort 
when long files are being loaded. 
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Listing 1 (continued) 


; SEARCH THE BLOCK FOR 


FILE TERMINATION BYTE 






TEXT FILE READER 








o 




905F A0 BF 


LDY 0BLOKLEN 


-1 




ROLL TAPE 


9061 Bl 08 


Fl IDA (PTR),Y 






..END OF FILE 


9063 F0 2D 


BEQ HOMERUN 


;FILE TERMINATION 


© 


SAVING: 
ANYFILE 


9065 88 

9066 D0 F9 
9068 F0 AF 


DEY 

BNE Fl 
BEQ LOOP 


; BYTE = 

; BRANCH ALWAYS 


© 


DONE 




##**#< END OF FILE > ***** 






*****< SAVE THE DATA 


ON DISK > ***** 




Figure 1. Typical video display of 
CTACFL. 


906A A9 78 
906C 85 0A 






© 


; PRINT "BUFFER FULL" 




ERR9 LDA 0MESG9 
STA ADR 




If anything goes wrong, the program 


prints an error message and executes a 


906E A9 90 


LDA /MESG9 






"break" instruction, thus leaving you 


9070 85 0B 


STA ADR+1 




© 


in the monitor. To try again, rewind 


9072 20 62 93 


JSR PRMESG 






the tape and enter: 


9075 4C 9D 90 


JMP FNAME 






9000G 


9078 C2 D5 C6 


MESG9 ASC "BUFFER 


FULL" 


© 




9083 8D 


BYT $8D 


; < RETURN> 


The most likely cause of any error is a 


9084 D3 CI D6 


ASC "SAVING: 


tl 




misreckoning of the loudness control of 


908B 00 


BYT 






the tape player. This is a very touchy 








© 


setting, and it may take several trials to 
find the right spot. My advice is to start 












HIT EOF MARKER BLOCK 






very loud and to work down in small 








© 






increments. Other causes of error are 








less likely. It is possible that there may 


908C A9 00 


EOFMARK LDA #0 


; INSERT ZERO 




actually be bad data on the tape, in 
which case you have to go back to the 


908E A0 01 


LDY #1 


; INTO DATA 




9090 91 08 


STA (PTR),Y 




© 


Commodore and save the file again. 
Test the Commodore C2N tape drive 










PRINT "END OF FILE" 




by saving and then verifying any BASIC 











program. Maybe the tape medium is 








bad; try a different tape. If all else fails, 


9092 A9 CC 


HOMERUN LDA #MESG6 






try a different tape player, preferably 


9094 85 0A 


STA ADR 




© 


one that is not so noisy. 


9096 A9 91 


LDA /MESG6 






9098 85 0B 


STA ADR+1 






Listing the File 

The cassette file loader puts the data 


909A 20 62 93 


JSR PRMESG 




© 


FIND FILE NAME 




into a sequential text file on the disk. 
The program in Listing 2, called 








o 






TEXTLISTER, can list this or any other 


909D A9 06 


FNAME LDA #NAME 


;ADR = NAME 




sequential file. The output can be 


909F 85 0A 


STA ADR 


;ADR — > 




directed either to the TV or to a printer. 


90A1 A9 08 


LDA /NAME 


; HEADER FILE NAME 


o 


RUN this program and give the name of 


90A3 85 0B 


STA ADR+1 




the data file. Compare the output with 










what the original Commodore program 




IS A FILENAME PRESENT 




o 


wrote. Such data files can be used as 


90A5 A0 ID 


LDY #NAMLEN- 


1 


input for Apple programs. See the 


90 A7 Bl 0A 


FNAME1 LDA (ADR),Y 






chapter on sequential files in The DOS 


90A9 C9 20 


CMP #$20 


; SPACE 




Manual. 


90AB D0 0B 


BNE FNAME2 




o 


TEXTLISTER replaces any 


90AD 88 


DEY 






unprintable characters by an "@" sign 


90AE 10 F7 


BPL FNAME1 






to show at least that there is a character 








o 


present. 




IF NOT, USE DEFAULT NAME 




BASIC Programs 


90B0 A9 FB 
90B2 85 0A 


LDA #DFALT 
STA ADR 


;ADR = DFALT 


Q 


Although there are similarities in 


90B4 A9 91 
90B6 85 0B 


LDA /DFALT 
STA ADR+1 






syntax between Commodore BASIC 
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Listing 1 (continued) 




O 


; PRINT THE FILENAME 


90B8 A0 00 


FNAME2 


LDY #0 


90BA A2 IE 




LDX iCNAMLEN 


G 90BC Bl 0A 


FNAME3 


LDA (ADR),Y 


90BE 09 80 




ORA #$80 ;SET BIT 7 


90C0 91 0A 




STA (ADR),Y 


90C2 20 F0 FD 
90C5 C8 




JSR COUT1 




INY 


90C6 CA 




DEX 


90C7 D0 ?3 




BNE FNAME3 


o 


t 





o 
© 



o 



o 



90C9 
90CC 
90CE 



20 DC 03 

84 0C 

85 0D 



90D0 
90D2 
90D4 
90D6 
90D8 
90D9 



A5 0A 
A0 08 
91 0C 
A5 0B 
C8 
91 0C 



90DB 
90DD 
90DF 
90E1 

r> 9 E 3 

U 90E5 
90E7 
90E8 

© 90EA 
90EB 
90ED 
90EF 

© 90 F i 

90F3 
90F5 
© 90F7 
90F9 
90FA 



90FC 

~ 90FE 

Q 9100 

9102 

9104 

© 9105 

9107 

9109 

910A 

© 910C 

910E 



A9 01 
A0 00 
91 0C 
A9 00 
A0 02 
91 0C 
C8 

91 0C 
C8 

91 0C 
A0 07 
91 0C 
A9 01 
A0 05 
91 0C 
A9 06 
C8 
91 0C 



A9 76 
A0 0C 
91 0C 
A9 93 
C8 

91 0C 
A9 A3 
C8 

91 0C 
A9 93 
C8 



; LOCATE PARMLIST 



JSR LOCFPL 
STY FMPL 
STA FMPL+1 



;FMPL— > 

; FILE MGR PARMLIST 



;PUT FILE NAME IN PARMLIST 



LDA ADR 

LDY #8 

STA (FMPL),Y 

LDA ADR+1 

INY 

STA (FMPL),Y 



;0PEN THE OUTPUT FILE 



;CALL TYPE 1 = OPEN 



(FMPL),Y 
(FMPL),Y 



LDA #1 

ldy m 

STA (FMPL),Y 

LDA #0 

LDY #2 

STA 

INY 

STA 

INY 

STA (FMPL),Y 

LDY §7 

STA (FMPL),Y 

LDA #DRIVE 

LDY #5 

STA (FMPL),Y 

LDA 0SLOT 

INY 

STA (FMPL),Y 



;PUT BUFFER ADDRESSES IN PARMLIST 



;TEXT FILE 



LDA #WORKAREA 

LDY #$C 

STA (FMPL),Y 

LDA /WORKAREA 

INY 

STA (FMPL),Y 

LDA #SECT0R 

INY 

STA (FMPL),Y 

LDA /SECTOR 

INY 



and Applesoft BASIC, most programs 
written for a Commodore computer 
will require extensive revisions before 
they will run on an Apple. The cassette 
file loader could save a lot of retyping, 
though, by moving programs verbatim 
from the Commodore to the Apple. 
First, the BASIC program must be 
converted to a data file so that it can be 
transferred. The procedure is 
straightforward: 

1. LOAD the program into the 
Commodore in the usual way. 

2. Remove the program tape and 
put in a "scratch" tape. 

3. Enter the following commands 
in immediate execution mode: 

OPEN 1,1,2, "FILENAME . TXT » 

CMD 1 

LIST 

PRINT #1 

CLOSE 1 

This writes the program listing into a 
data file on the tape. It does not make a 
copy of the original BASIC file, but 
rather a replica of the program listing 
just as it would appear on the TV. Do 
not panic if the LIST step above takes 3 
times as long as you would expect. 

4. Rewind the scratch tape and 
physically move it to the Apple's 
cassette tape player. 

5. BRUN the cassette file loader 
and play the file through. 

6. You now have a text file on the 
disk called "FILENAME.TXT". 
TEXTLISTER can be used to list it. It 
can be edited with any text editor that 
can work with "T" type files. In this 
step it is only necessary to fix the 
syntax so that it looks like an Applesoft 
program. Delete the extraneous lines at 
the beginning and end of the file. 
Change every "SYS" to "CALL". 
Make any other changes needed to 
make it conform to legal Applesoft 
syntax. It is not essential for the 
program to be logically correct at this 
point. Save the edited file. 

7. Go into Applesoft, give a NEW 
command if necessary and then (here 
comes the exciting part) EXEC the text 
file. This step enters the text file just as 
if you were typing the whole thing. 

8. The program is now in 
memory, and you can LIST it. Give it a 
name and save it. As a convention, I 
use the same filename without the 
".TXT" suffix. Note that this program 
now shows up as an "A" type file in 
the catalog. 
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9. This program can be worked 


Listing 1 (continued) 








just like any other Applesoft program, 


910F 91 0C 


STA (FMPL),Y 






so do whatever it takes to get it running 
on the Apple. 


9111 A9 A3 

9113 C8 

9114 91 0C 
9116 A9 94 


LDA #BUFFER 

INY 

STA (FMPL),Y 

LDA /BUFFER 




O 


Memory Dumps & Dissassembly 


9118 C8 


INY 




O 




9119 91 0C 


STA (FMPL),Y 




It is also possible to transfer a range of 


911B A2 00 


LDX #0 


;NEW FILE IS OK 




memory from a Commodore to an 


911D 20 D6 03 


JSR D0SFM 






Apple. Again, the trick is to first 


9120 B0 6E 


BCS D0SERR 




O 


generate a data file. The program in 
Listing 3 is a Commodore BASIC 


















program which does this. The user is 
asked to specify the starting and ending 




; POSITION FILE AT START 




O 






addresses of the memory range as well 


9122 A9 0A 


LDA #$A 


;CALL TYPE $A = 




as a file name for the tape file. It then 


9124 A0 00 


LDY #0 


; POSITION 





PEEKs each byte of the range and writes 


9126 91 0C 


STA (FMPL),Y 




that value (as decimal digits) into the 


9128 A9 00 


LDA #0 






tape file. This serves as a useful 


912A A0 04 


LDY #4 






example of the procedure discussed 


912C 91 0C 


STA (FMPL),Y 







above for creating a data file. It also 


912E C8 


INY 






serves as an example of a BASIC 


912F 91 0C 


STA (FMPL),Y 






program that has been transferred to 
the Apple to get a hardcopy listing, but 


9131 A2 01 
9133 20 D6 03 
9136 B0 58 


LDX #1 
JSR D0SFM 
BCS D0SERR 







the listing shown here has been 










doctored slightly. (The word "CLR" in 











line 10 was inserted by hand.) 








The memory range is written into a 




WRITE THE DATA 






data file on the tape. The tape is 
transferred to the other tape player and 










', 









loaded into the Apple by the cassette 


9138 A9 04 


LDA #4 


;CALL TYPE 4 = WRITE 




file loader. The data is then loaded into 


913A A0 00 


LDY #0 






the Apple's memory by the Applesoft 


913C 91 0C 


STA (FMPL),Y 







program in Listing 4. Note that it does 


913E A9 01 

9140 C8 

9141 91 0C 


LDA #1 

INY 

STA (FMPL),Y 


;0NE BYTE AT A TIME 




not necessarily have to be loaded into 
the same address range from whence it 







came. Use BSAVE to save the memory 




INITIALIZE BUFFER POINTER TO 




range as a conventional "B" type file if 




1ST BYTE OF ACTUAL DATA 




you wish. The disassembler of the 










monitor or autostart ROM will work on 


9143 A9 C2 


LDA #B0DY 


;PTR — > BODY 





this. 


9145 85 08 
9147 A9 08 


STA PTR 
LDA /BODY 






Commodore Tape Format 


9149 85 09 


STA PTR+1 







This part gets technical, so I am going 




SKIP EVERY 192ND BYTE 


(BLOCK-TYPE TOKENS) 




to start by defining a few terms. 


914B A2 BF 


PRINT1 LDX #BL0KLEN- 


L 


© 


A cycle is a complete wave cycle (both 


914D 8E 02 03 


STX KNT 


;CHAR COUNTER 




half-cycles ; for a square wave, both the 


9150 A0 00 


PRINT2 LDY #0 






down and the up phases). 


9152 Bl 08 


LDA (PTR),Y 







The duration of a cycle is the total time 




WATCH FOR END OF FILE, 






spanned by a complete cycle (both half- 




WHICH IS MARKED BY A ZERO BYTE 




cycles). 











There are 3 kinds of bits, each 


9154 F0 21 


BEQ WRAPUP 


; BRANCH IF ZERO 




consisting of 2 cycles of different 
durations. The following table gives 


9156 09 80 
9158 A0 08 
915A 91 0C 


0RA #$80 

LDY #8 

STA (FMPL),Y 


;SET BIT 7 

;BYTE TO BE WRITTEN 





approximate cycle durations in 


915C A2 01 


LDX #1 






microseconds: 


915E 20 D6 03 


JSR D0SFM 


;< WRITE THE BYTE > 






9161 B0 2D 


BCS D0SERR 


; BRANCH IF ERROR 





1st cycle 2nd cycle 














TNPRTTMTTMT RTIFFTTR POTMTF'D 




"1" BIT 500 pis 333 Ms 




xiiVyruLi'Lcii 1 du r r ijii runi 1 






"0" BIT 333 500 


9163 E6 08 
9165 D0 02 


INC PTR 
BNE PRINT3 







SYNC 667 500 


9167 E6 09 


INC PTR+1 
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Listing 1 (continued) 








Note that the "1" and "0" bit have the 




9169 CE 02 03 


PRINT3 


DEC KNT 


;SKIP 1ST BYTE 


same total duration. A byte of data is 


O 


916C D0 E2 




BNE PRINT2 


;OF EACH BLOCK 


coded as follows: 


916E E6 08 




INC PTR 




sync bit 




9170 D0 D9 




BNE PRINT1 






9172 E6 09 




INC PTR+1 




8 data bits (LSB first... MSB last) 


o 


917-4 D0 D5 




BNE PRINT1 




parity bit 




9176 00 




BRK 




The parity bit is "1" if the byte parity 


© 
© 


9177 A9 02 
9179 A0 00 








is even and "0" if the parity is odd. 
Figure 2 shows a typical byte frame. 


; CLOSE OUTPUT FILE 


WRAPUP 


LDA §2 
LDY W 


;CALL TYPE 2 = CLOSE 


^njb^mMuifWLriru^ 




917B 91 0C 




STA (FMPL),Y 




SYNC [a oi i o 1 i I a i i j 




917D A2 01 




LDX §1 






© 


917F 20 D6 03 




JSR DOSFM 




Figure 2. Example of tape format for a 




9182 B0 0C 




BCS DOSERR 




single byte. The SYNC bit is followed 


© 










by 8 data bits with the least 
significant bit first. The value of this 


PRINT "DONE" AND EXIT TO 


BASIC 












byte is thus $AC in hex. The last bit 


















on the right is the parity bit. Since in 


© 


9184 A9 E0 




LDA #MESG7 




this case the number of "1" bits is 


9186 85 0A 




STA ADR 




even, the parity Is even, so the parity 


© 


9188 A9 91 
918A 85 0B 
918C 20 62 93 
918F 60 




LDA /MESG7 
STA ADR+1 
JSR PRMESG 
RTS 




bit is "1". The parity bit helps to 
check for errors. 






EXIT 














I will use the term "block" to 


© 




DOS ERROR 




describe the next level of structure. A 












block contains all the information in 
the cassette buffer, which is 192 bytes. 












© 


9190 A9 EA 


DOSERR 


LDA #MESG8 




The format of a block is as follows: 


9192 85 0A 




STA ADR 




leader tone of continuous 333 


© 


9194 A9 91 
9196 85 0B 
9198 20 62 93 




LDA /MESG8 
STA ADR+1 
JSR PRMESG 




microsecond cycles 
9 count-down bytes, $89... $81 


919B A0 0A 




LDY #$k 




192 data bytes 




919D Bl 0C 




LDA (FMPL),Y 


, ERROR CODE 


checksum byte 




919F 20 DA FD 




JSR PRBYTE 


; PRINT THE HEX CODE 


a single 667 microsecond cycle 


© 


91A2 00 




BRK 


; ABANDON SHIP 


about 80 cycles of 333 

microseconds (spacer) 
9 count-down bytes, 9...1 








© 




MESSAGES 






data bytes (repeated) 












checksum byte 


© 


91A3 A0 A0 A0 
91AF D4 C5 D8 
91BF 8D 8D 8D 


MESG5 


ASC " " 
ASC "TEXT FILE LOADER" 
BYT $8D,$8D,$8D 


a single 667 microsecond cycle 
about 80 cycles of 333 
microseconds (trailer) 




91C2 D2 CF CC 




ASC "ROLL TAPE 


i 


The checksum byte is the EOR of all of 




91CB 00 




BYT 




the data bytes in the block. 


© 


91CC C5 CE C4 


MESG6 


ASC "END OF FILE" 


A "file" is simply a sequence of 




91D7 8D 




BYT $8D 




blocks. The first block in the file is a 




91D8 D3 CI D6 




ASC "SAVING:" 




header which contains the file name. 





91DF 00 
91E0 8D 8D 
91E2 C4 CF CE 


MESG7 


BYT 

BYT $8D,$8D 

ASC "DONE" 




The last block is a special End-Of-File 
marker block, although this can be 




91E6 8D 8D 8D 




BYT $8D,$8D,$8D,0 


omitted. The actual end of the file is 


o 


91EA 8D 


MESG8 


BYT $8D 




indicated by a zero byte in the data after 




91EB C4 CF D3 




ASC "DOS ERROR 


CODE:" 


the last legitimate character in the final 




91FA 00 




BYT 




data block. 


© 










Overview of the Program 












; DEFAULT 


FILE NAME (30 CHARS) 


f-i^ ii i r t * i ' i" 












Toward the end of Listing 1 is a 


© 










subroutine labeled "GETBIT". It 




91FB C3 CF CD 
920A A0 A0 A0 


DFALT 


ASC "COMMODORE 
ASC " 


FILE " 


watches the cassette input (TAPEIN) 
for two cycles (down, up, down, up). 
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The x-register measures the duration of 
the first cycle, and the y-register 
measures the duration of the second 
cycle. A comparison of the two tells 
whether it is a "1" or a "0". The bit is 
left in the carry flag so that it can easily 
be rotated into the data byte. 

Obviously, the timing of this 
program is critical because the cycle 
durations are measured by counting 
trips through program loops. That is 
why the interrupt disable flag is set (SEI 
instruction) at the top of the program. 
However, any peripheral device which 
still slows down the 6502 will interfere 
with this program and must be 
removed. 

The subroutine labeled "BLOCK" 
reads any block from a Commodore 
tape and adds it to a memory buffer. 
The memory buffer used here begins at 
$801 and extends to $8FFF. Since the 
data field is repeated on the tape, the 
program verifies that the second 
occurrence of the data matches what is 
in memory. 

The end of the file is signaled by a 
zero byte in the data field. When the 
file is fully loaded, the program writes a 
"T" type file with the same name as it 
finds in the file header. If no name is 
found, the default name 
"COMMODORE FILE" is used. 

This program uses the DOS File 
Manager for all disk operations. 
Beneath Apple DOS by Don Worth and 
Pieter Lechner explains in detail how to 
use the File Manager from assembly 
language. 

Summary 

Although there may be less 
cumbersome ways to transfer data 
between computers, I went with this 
method because it didn't cost me any 
money. One could call it a poor man's 
modem. The success of this program 
demonstrates the possibility of two 
other cheap tricks: |1) It should be 
possible for the Apple to write tape files 
that are readable by Commodore 
computers. (2) It should also be 
possible to have a direct link between 
the Commodore cassette interface and 
the Apple cassette interface. The read 
and write lines would, of course, be 
crossed over. In addition there would 
have to be a signal ground connection 
and a fourth connection from an 
annunciator output of the Apple's game 
port to the cassette sense input of the 
Commodore's cassette port. The latter 
connection would allow the Apple to 
simulate the button-down condition of 
the C2N tape drive. 



Listing 1 (continued) 



9219 AD 05 03 
92 1C 85 08 
92 IE AD 06 03 
9221 85 09 
9223 A9 00 
9225 8D 00 03 



9228 A9 
922A 8D 
922D A2 
922F 20 
9232 A5 
9234 29 
9236 CD 

9239 D0 
923B CE 
923E D0 

9240 A2 
9242 D0 



9244 A2 
9246 20 
9249 A5 
924B 4D 
924E 8D 
9251 A0 
9253 A5 
9255 AE 
9258 F0 
92 5 A Dl 
925C D0 
925E F0 
9260 91 

9262 EA 

9263 EA 

9264 E6 
9266 D0 
9268 E6 
926A A5 
926C CD 
926F A5 
9271 ED 
9274 90 



09 

04 03 
06 

DA 92 
06 
7F 

04 03 
48 

04 03 
ED 
06 
02 



DA 92 
06 



03 
03 



03 



06 
03 
06 
08 
31 
04 
08 



02 
09 
08 

07 03 
09 

08 03 
CE 



9276 A2 0B 
9278 20 DA 92 
927B A5 06 
927D CD 00 03 
9280 D0 19 
9282 60 



***************** 

* * 

* SUBROUTINES * 

* * 
***************** 



READ A BLOCK 



INITIALIZE POINTER & CHECKSUM 



BLOCK LDA START 
STA PTR 
LDA START+1 
STA PTR+1 

LDA #0 

STA CHSUM 
READ C0UNT-D0UN BYTES 



BL0CK1 



LDA #9 
STA KDOWN 
LDX #6 
JSR RDBYTE1 
LDA BYTE 
AND #$7F 
CMP KDOWN 
BNE ERR4 
DEC KDOWN 
BNE BL0CK1 
LDX #6 
BNE BL0CK3 



READ DATA BYTES 



BL0CK2 
BL0CK3 



BL0CK4 



BL0CK5 



BL0CK6 



LDX 
JSR 
LDA 
EOR 
STA 
LDY 
LDA 
LDX 
BEQ 
CMP 
BNE 
BEQ 
STA 
NOP 
NOP 
INC 
BNE 
INC 
LDA 
CMP 
LDA 
SBC 
BCC 



#11 

RDBYTE1 

BYTE 

CHSUM 

CHSUM 

#0 

BYTE 

SCAN 

BL0CK4 

(PTR),Y 

ERR2 

BL0CK5 

(PTR),Y 



PTR 

BL0CK6 

PTR+1 

PTR 

FIN 

PTR+1 

FIN+1 

BL0CK2 



READ CHECKSUM BYTE 

LDX #11 
JSR RDBYTE1 
LDA BYTE 
CMP CHSUM 
BNE ERR3 
RTS 

ERROR TRAPS 



PTR = START 
PTR — > 

START OF BLOCK 



O 



;9 COUNT-DOWN BYTES 
; COUNTER 



CLEAR BIT 7 

IS IT CORRECT 

IF NOT, THEN QUIT 



; BRANCH ALWAYS 



;< NEXT DATA BYTE > 

; CHSUM = 

; EOR OF ALL DATA 



LOAD OR VERIFY 
BRANCH IF LOADING 
VERIFY THIS CHAR 

BRANCH ALWAYS 
STORE THIS CHAR 
TIME DELAY 

; INCREMENT 

; BUFFER POINTER 

;PTR < FIN 



;IF SO, 

: GET ANOTHER CHAR 



o 



o 



© 
o 
© 



;D0ES IT CHECK 
;IF NOT, THEN QUIT 



© 
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...<-■'.':. 










.isting 1 (continue 


d) 








9283 A9 C4 


ERR4 IDA #MESG4 






o 


9285 85 0A 


STA ADR 




Listing 2 




9287 A9 92 


LDA /MESG4 






9289 85 0B 


STA ADR+1 




10 HOME : 


© 


928B 20 62 93 


JSR PRMESG 




PRINT "TEXTLISTER" 


928E 00 


BRK 




20 PRINT : 




928F A9 A7 


ERR2 LDA #MESG2 




PRINT "BY ART MATHENY" 




9291 85 0A 


STA ADR 




30 PRINT 


© 


9293 A9 92 


LDA /MESG2 




40 PRINT TAB( 6); 




9295 85 0B 


STA ADR+1 




"THIS PROGRAM WILL LIST 




9297 20 62 93 


JSR PRMESG 




A" 




929A 00 


BRK 




50 PRINT TAB( 8); 


© 


929B A9 B4 


ERR3 LDA #MESG3 




"SEQUENTIAL TEXT FILE." 




929D 85 0A 


STA ADR 




60 PRINT 




929F A9 92 


LDA /MESG3 




70 INPUT "GIVE THE FILE 


Q 


92A1 85 0B 


STA ADR+1 




NAME: ";F$ 


92A3 20 62 93 


JSR PRMESG 




80 PRINT 




92A6 00 


BRK 




90 PRINT "WHAT SLOT IS THE 




92 A7 D6 C5 D2 


MESG2 ASC "VERIFY 


ERROR" 


PRINTER IN (0 FOR TV)": 


Q 


92B3 00 


BYT 




INPUT SLOT 




92B4 C3 C8 C5 


MESG3 ASC "CHECK- 


SUM ERROR" 


100 IF SLOT > = AND SLOT 




92C3 00 


BYT 




< = 7 THEN 110 




92C4 C3 CF D5 


MESG4 ASC "COUNT- 


DOWN ERROR" 


105 PRINT "ENTER A NUMBER 


O 


92D4 00 


BYT 




BETWEEN AND 7.": 




92D5 CE 04 03 


DEC KDOWN 




GOTO 90 
110 PRINT 
120 D$ = CHR$ (4) : 


o 




t 








;READ A BYTE 




REM <CTRL-D> 






t 




130 ONERR GOTO 330 






t 




140 PRINT D$;"PR #";SLOT 


o 




;WAIT FOR SYNC BIT 




150 PRINT : PRINT : PRINT : 
PRINT 




92D8 A2 02 


RDBYTE LDX #2 




160 PRINT "LISTING OF FILE: 




92DA 20 55 93 


RDBYTE1 JSR PULSE1 




";F$ 


o 


92DD E0 43 


CPX #$43 


;1500 HZ CYCLE 


170 PRINT : PRINT 




92DF 90 F7 


BCC RDBYTE 




180 PRINT D$;"OPEN ";F$ 




92E1 E0 56 


CPX #$56 




190 PRINT D$;"READ ";F$ 


o 


92E3 B0 F3 


BCS RDBYTE 




200 : 




92E5 A2 02 


LDX #2 


;IF SO, 


210 REM 




92E7 20 55 93 


JSR PULSE1 


; LOOK AT NEXT CYCLE 






92EA E0 30 


CPX #$30 


;2000 HZ CYCLE 


220 REM GET ONE CHARACTER 


© 


92EC 90 EA 


BCC RDBYTE 




AT A TIME 




92EE E0 43 


CPX #$43 




230 REM 




92F0 B0 E6 


BCS RDBYTE 






o 




> 




240 : 




;DATA BITS 




250 GET A$:A = ASC (A$) 






t 




255 IF A > 31 THEN PRINT " 




92F2 A9 00 


LDA #0 




"; CHR$ (128 + A);: 





92F4 8D 01 03 


STA PAR 


; CLEAR PARITY COUNT 


GOTO 250 




92F7 A9 08 


LDA #8 


;DO 8 BITS 


260 IF A = 13 THEN PRINT " 




92F9 8D 02 03 


STA KNT 




": GOTO 250 




92FC 20 32 93 


RDBYTE2 JSR GETBIT 




270 PRINT " g";: GOTO 250: 


o 


92FF A5 06 


LDA BYTE 




REM UNPRINTABLE CHAR 




9301 6A 


ROR A 


; ROTATE BIT 


280 : 




9302 85 06 


STA BYTE 


; INTO BYTE 


290 REM 




9304 4D 01 03 
9307 8D 01 03 


EOR PAR 


;EOR THIS BIT WITH 




o 


STA PAR 


;BIT 7 OF 


300 REM ERROR HANDLING 




930A CE 02 03 


DEC KNT 


; PARITY COUNT 


ROUTINE 


o 


93 0D D0 ED 


BNE RDBYTE2 
; CHECK PARITY 




310 REM 


320 : 






> 




330 PRINT : PRINT : PRINT : 




930F 20 32 93 


JSR GETBIT 




PRINT 


o 


9312 6A 


ROR A 




340 PRINT D$; "CLOSE ";F$ 




9313 4D 01 03 


EOR PAR 




350 PRINT D$;"PR #0" 




9316 10 01 


BPL ERR1 




360 END 


© 


9318 60 


RTS 
; PARITY ERROR 







62 



MICRO 



No. 73 • July 1964 





Listing 1 (continued) 








9319 A9 25 


ERR1 LDA #MESG1 






93 IB 85 0A 


STA ADR 


o 


Listing 3 


93 ID A9 93 


LDA /MESG1 




93 IF 85 0B 


STA ADR+1 




10 PRINT "{CLR} 

SAVE A RANGE OF MEMORY" 
20 PRINT "WHAT IS THE": 

INPUT "STARTING ADDRESS"; 


9321 20 62 93 

9324 00 

9325 D0 CI D2 
9331 00 


JSR PRMESG 
BRK 
MESG1 ASC "PARITY ERROR" 
BYT 


o 


Kl 
30 PRINT "WHAT IS THE": 






o 


;READ A BIT 


INPUT "ENDING ADDRESS"; 

K2 
40 PRINT "WHAT IS THE": 

INPUT "FILENAME ";F$ 
50 OPEN 1,1,2,F$ 
60 PRINT#1,K1;CHR$(13) 
70 PRINT#1,K2;CHR$(13) 




o 
o 


; SUBROUTINE RETURNS: 
; X=DURATION OF 1ST PULSE 
; Y=DURATION OF 2ND PULSE 
; CARRY SET IFF X> Y 


80 FOR K=K1 TO K2 
90 PRINT#1,PEEK(K); 
CHR$(13) 

100 NEXT 

110 CLOSE 1 

120 END 


9332 A2 05 

9334 E8 

9335 AD 60 C0 


GETBIT LDX §5 
GETBIT1 INX 

LDA TAPEIN 


o 


9338 30 FA 
933A E8 


BMI GETBIT1 
GETBIT2 INX 




933B AD 60 C0 


LDA TAPEIN 


o 




933E 10 FA 
9340 A0 00 


BPL GETBIT2 






LDY #0 




Listing 4 


9342 C8 


GETBIT3 INY 




9343 AD 60 C0 


LDA TAPEIN 


o 


10 TEXT : HOME 
20 PRINT "LOADING NUMERIC 
DATA FROM A TEXT FILE" 


9346 30 FA 


BMI GETBIT3 




9348 C8 

9349 AD 60 C0 
93 4C 10 FA 


GETBIT4 INY 

LDA TAPEIN 
BPL GETBIT4 


o 


30 PRINT "INTO A RANGE OF 


934E 84 07 


STY TEMP 




MEMORY. " 
40 PRINT 
50 INPUT "WHAT IS THE 


9350 E4 07 
9352 60 


CPX TEMP 
RTS 


o 


FILENAME ";F$ 




READ A SINGLE PULSE 




60 PRINT "WHAT IS THE 








STARTING ADDRESS (ENTER 






o 


0" 


9353 A2 00 


PULSE LDX W 




70 PRINT "TO PUT IT AT 


9355 E8 


PULSE1 INX 




THE ORIGINAL ADDRESS)" 


9356 AD 60 C0 


LDA TAPEIN 




80 INPUT Al 


9359 30 FA 


BMI PULSE1 


© 


90 PRINT CHR$ (4); 


935B E8 


PULSE2 INX 




"OPEN ";F$ 


93 5C AD 60 C0 


LDA TAPEIN 




100 PRINT CHR$ (4); 


935F 10 FA 


BPL PULSE2 


© 


"READ ";F$ 


9361 60 


RTS 


110 INPUT Kl: INPUT K2 








120 IF Al = THEN Al = Kl 










130 L = K2 - Kl + 1: 




PRINT MESSAGES 


© 


A2 = Al + L - 1 
140 PRINT 














150 PRINT "STARTING 


9362 A0 00 


PRMESG LDY #0 


© 


ADDRESS = ";A1 


9364 Bl 0A 


PRMESG1 LDA (ADR),Y 


160 PRINT "ENDING ADDRESS 


9366 F0 08 


BEQ PRMESG2 ; BRANCH IF ZERO 




= ";A2 


9368 09 80 


ORA #$80 ;SET BIT 7 




170 PRINT "LENGTH = ";L 


93 6 A 20 F0 FD 


JSR COUT1 


o 


180 PRINT 


936D C8 


INY 




190 FOR K = Al TO A2 


93 6E D0 F4 


BNE PRMESG1 




200 INPUT X: POKE K,X 


9370 A9 8D 


PRMESG2 LDA #$8D ; RETURN CHAR 




210 NEXT K 


9372 20 F0 FD 


JSR COUT1 


o 


220 PRINT CHR$ (4); 


9375 60 


RTS 




"CLOSE ";F$ 








230 END 






o 








FILE MANAGER BUFFERS 


JMCRO" 










9376 


WORKAREA DFS 1 


o 




93A3 


SECTOR EQU WORKAREA+45 






94A3 


BUFFER EQU SECTOR+256 






9377 


END 
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Subscribe to MICRO... 

Save 20% and we'll send you a 

BONUS GIFT 

with your subscription! 



Receive a coupon good for 
one MicroDisk of your choice. 
A $15.00 Value — FREE! 



Each Disk contains a variety of programs 
from Micro, all entered and ready to run on 
your machine. Saves time, avoids errors. 
This offer expires October 31, 1984 



Fill out the attached 
card and mail today! 




Each diskette includes all of the programs in BASIC and/or 
Assembly Source, plus binary 'load-and-go' files. The price of 
only $15.00 includes shipping and handling. 
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$24,00 per year and send me a BONUS GIFT 
COUPON for one free MicroDisk. 

□ Renew my subscription to MICRO for just $24.00 
and send me a BONUS GIFT COUPON for one free 
MicroDisk. 

My mailing label number is MC 




Please rush my subscription and the BONUS GIFT I've checked to: 



Name 



Address. 
City 



State. 



■ Zip. 



(Allow e-a weeks for delivery) Bonus Coupon offer expires Oct. 31, 1984 



I'm paying by: 
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MicroDisks 

Send me the following MicroDisks at 
$15.00 each prepaid 

DMD-1 Master Disk Directory 
DMD-2 DoesMt Monitor 
DMD-3 Accurate Printer 
DMQ-4 Graphic Printer Dump 
DMD-5 COMPRESS 



MicroCalc 

The Full Screen Calculator 

Easier than spreadsheet programs, does 
calculations of unlimited length and 
complexity on screen, links screens, saves on 
disk or tape, provides formatted printer output. 
Contains a 48'page manual and diskette. 

□ MicroCalc for Commodore 64 $29.95 

D MicroCalc for Apple ll/lle/llc $29.95 

D MicroCalc for Atari $29.95 
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Exp. Date:_ 
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Mastering Your VIC-20 

Contains 8 projects and 

programs— Utilities, 

games — even a version of 
"VisiCalc." All 8 programs on 
cassette to help you learn faster. 
Makes learning to program you 
VIC 20 fun. 

D Mastering Your VIC 20.. .$19.95 



What's Where 
in the Apple 

Revised new edition with Apple lie 
information added to original 
atlas and gazetter. All Apple users 
will find this book helpful in 
understanding their machine and 
essential for mastering it. 



□ 



What's Where 
@ $19.95 



in the Apple 



Best Sellers for 

APPLE Users! 

MICRO on the APPLE 

Programming aids, utilities, 
games, enhancements. Together 
Volumes 1, 2, and 3 contain over 
100 programs oh diskette. Fully 
documented and explained. 
D 3-Volume Gift-Boxed @ $59.95 
□ Vol. 2D Vol.3 $24.95 ea. 



Please rush the MICRO Books I've checked above to: 
Name _____ 



Address. 
City 



.State. 



-Zip_ 



MA residents add 5% sales tax. 
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Visa/MC #_ 
Exp. Date:_ 



BUSINESS REPLY CARD 

FIRST CLASS PERMIT NO. 60, CHELMSFORD, MA 



POSTAGE WILL BE PAID BY ADDRESSEE 

/MCftO 

P.O. Box 6502 
Chelmsford, MA 01824 



BUSINESS REPLY CARD 

FIRST CLASS PERMIT NO. 60, CHELMSFORD, MA 



POSTAGE WILL BE PAID BY ADDRESSEE 

/AlCftO 

P.O. Box 6502 
Chelmsford, MA 01824 



BUSINESS REPLY CARD 

FIRST CLASS PERMIT NO. 60, CHELMSFORD, MA 



POSTAGE WILL BE PAID BY ADDRESSEE 

/AlCftO 

P.O. Box 6502 
Chelmsford, MA 01824 







NO POSTAGE 

NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 


































NO POSTAGE 

NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 
































NO POSTAGE 

NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 

































SAVE 
20%!!!! 

Subscribe 

/AlCftO 

Use This Postage 

Paid Card to Ordei 

the Next 12 Issues 

of MICRO and SAVI 

$6.00 Off 
Newsstand Price! 



A Feast G 
Computin 
Ideas... 

New Bool 

From 

/AJCftC 



Order Thesi 

Best 
Sellers 

From 

UNCQC 



katune 



^ BASIC Hex Loader 

T 



A short BASIC utility that loads 
DATA written in Hexidecimal 
notation. A special version for 
the C-64 generates the DATA 
statements. 



Requirements: Any BASIC 

If you have an assembly listing or the 
hex dump of a machine language 
program, getting it to load with BASIC 
can be a real problem. BASIC likes to 
work only in decimal, so you must 
make the conversion from hex to 
decimal and then type in the DATA 
statements. For years, MICRO has had 
to 'waste space' providing both the 
'useful' assembly listing and the 
'necessary' decimal DATA statement 
form of the same information. If there 
was a simple way to input the natural 
hex information, then this additional 
dump would not be required. 

One solution is presented here in 
Listing 1. It is a simple, short BASIC 
program that will load hexidecimal 
information. It is best understood 
through a brief example. Suppose that 
you have an assembly program that 
starts as follows: 



033C A5 7A 
033E 8D 70 03 
0341 A5 7B 



ENTER 



LDA TXTPTR 

STA TEMPLO 

LDA TSTPTR1 



and so forth. Normally you would have 
to convert the hex information: A5 7 A 
8D 70 03 A5 7B etc. into the decimal 
equivalents to generate the following 
DATA statement: 

DATA 165, 122, 141,112, 3, 165 ,123 

The HEX Loader lets you use a DATA 
statement of the form: 

DATA "A57A8D7003A57B" 



Listing 1 

10 REM HEX LOADER R.M.TRIPP 

11 READ X$:Z=LEN(X$):G0SUB 17: 
MS=X:Z=2 

12 READ HX$:J=1 

13 X$=MID$(HX$,J,2) 

14 IF X$="XX" THEN END 

15 IF X$="YY" THEN GOTO 12 

16 GOSUB 17: POKE MS,X:MS=MS+1: 
J=J+2:GOT0 13 

17 X=0:FOR 1=1 TO Z: 
Y=ASC(MID$(X$,I,1)): 
IF Y> 57 THEN Y=Y-7 

18 Y=Y-48:X=X*l6+Y: NEXT: RETURN 



by Robert M. Tripp 



which is obviously much easier to 
generate. 



Using Hex Loader 

The first DATA statement must be the 
hex address at which the hex 
information is to start loading. The 
remaining DATA statements each 
consist of an ASCII string that contains 
the hex data, terminated by the non- 
hex ASCn pair "YY". The end of hex 
information is indicated by the non-hex 
ASCII pair "XX". For example: 

10000 DATA "033C" 

10010 DATA "A57A8D7003A57BYY" 

10020 DATA "8D7103A900857AA902XX" 



The program was written to fit 
neatly between lines 10 and 20 of your 
typical BASIC program. You may want 
to change line 14 so that it performs a 
GOTO when done loading instead of 
the current END. That is the only 
change that should be required to add 
this utility to your programs. 



Hex DATA Generator 

The second listing is a special program 
for the Commodore 64 that generates 
the BASIC DATA statements from 
information already existing in 
memory. You may already have the 
information in memory from an 
assembly, from entering it through a 
monitor, or as the result of running a 
program. You specify the BASIC line 
number to start using for the DATA 
statements and the memory start and 
ending addresses. The program 
automatically generates all of the 
DATA statements required by the Hex 
Loader and then automatically deletes 
itself, leaving just the Hex Loader and 
the DATA statements. It is really 
pretty neat — and fun to watch in 
operation, since most of the action is 
on the screen. And, it can save you a lot 
of time. 



Listing 2 

1 REM HEX MAKER R.M. TRIPP 

2 Z=4: INPUT "{CLEAR}BASIC LINE 
NUMBER: ";LN 

3 INPUT "HEX START ADDR: ";X$: 
MS$=X$: GOSUB 30:MS=X 

4 INPUT "HEX LAST ADDR: ";X$: 
GOSUB 30:ME=X 

5 PRINT "{CLEAR}"; 
MID$(STR$(LN),2);" DATA »; 
CHR$(34);MS$;CHR$(34): 
LN=LN+10:K=1:GOTO 7 

6 PRINT "{CLEAR} ";:K=0 

7 FOR I=K TO 6: 

PRINT MID$(STR$(LN),2); 
" DATA ";CHR$(34); 

8 FOR J=0TO10:X=PEEK(MS): 
GOSUB 50:PRINT HL$; :MS=MS+1 

9 IF MS>ME THEN PRINT "XX "j- 
:I=6: 

J=ll 

10 NEXT J:PRINT "Yi";CHR$(34) : 
LN=LN+10 

11 NEXT I:PRINT»LN=";LNj": 
MS=";MS; ":ME=";ME 

12 IF MS>ME THEN PRINT"{D0WN2} 
GOTO 14": GOTO 16 

13 PRINT "{DOWN2}GOT0 6":G0T0 16 

14 PRINT "{CLEAR} ";:F0RI=1T08: 
PRINT I:NEXT:PRINT "GOTO 15": 
GOTO 16 

15 PRINT "{CLEAR} ";:FORI=9T0l6: 
PRINT I: NEXT 

16 POKE 631, 19: FOR 1=1 TO 9: 
POKE 631+1, 13: NEXT: 

POKE 198, 10: END 

20 REM HEX LOADER R.M.TRIPP 

21 READ X$:Z=LEN(X$): GOSUB 30:' 
MS=X:PRINT "{CLEAR}L0ADING 
FROM ";X$;" TO "; :Z=2 

22 READ HX$ 

23 FOR J=l TO 99 STEP 2: 
X$=MID$(HX$,J,2) 

24 IF X$="XX" THEN MS=MS-1: 
GOSUB 40: PRINT MS$:END 

25 IF X$="YY" THEN J=99:GOT0 27 

26 GOSUB 30-.POKE MS,X:MS=MS+1 

27 NEXT: GOTO 22 

30 X=0:FOR 1=1 TO Z: 
Y=ASC(MID$(X$,I,l)): 
IF Y> 57 THEN Y=Y-7 

3 1 Y= Y-48 : X=X* 16+Y : NEXT : RETURN 
40 X=INT(MS/256):G0SUB 50: 

MS$=HL$:X=INT(MS-X*256) : 
GOSUB 50 :MS$=MS$+HL$: RETURN 

50 H=INT(X/16):L=INT(X-H*16): 
IF H> 9 THEN H=H+7 

51 IF L> 9 THEN L=L+7 

52 HL$=CHR$(H+48)+CHR$(L+48): 
RETURN 



No. 73- July 1984 



MICRO 



65 



# o. 

o Circles ^ 

• for the U 

Commodore 64 



O 



by Lester Cain 

o • 



An interesting 

mathematical way to plot 

circles on the C-64 
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Editor's Note: For easy method of 
entering hex object into a BASIC 
program, see Hex Loader, by R. Tripp, 
page 65. 



DEE 



The programs contained in this article 
will give a theory behind creating 
circles on a Commadore 64 specifical- 
ly, but generally on any 6502 computer 
with HiRes capabilities. Also, it gives 
necessary code to implement circles in 
a game or business type analysis. 

Let us first discuss the problems 
associated with creating a circle in a 
HiRes environment. In an 8 bit screen 
memory each memory address is made 
up of bytes containing 8 bits in some 
kind of sequential fashion. Unfor- 
tunately, most of the more popular 
computers do not do this in the same 
way. Therefore, a universal method has 
been developed to visualize this screen 
memory in a way common to all con- 
figurations. This universal way of look- 
ing at a graphics screen is referred to as 
World Coordinates X and Y, taken from 
common graphing methods, where X is 
the horizontal axis and Y is the vertical 
axis. The problem then is to draw a cir- 
cle in this X and Y environment. Using 
the X and Y outlook, the only time the 
actual screen layout comes into effect 
is when actually setting the computed 
bit at its computed spot in the maze. 



033C 
033C 
033D 
033E 
0344 
0345 
0346 
0347 
0348 



00B1 
C000 



C000 AD 
C003 8D 
C006 A8 
C007 20 
C00A 8D 
C00D 8C 
C010 A9 
C012 8D 
C015 20 
C018 EE 
C01B AD 
C01E CD 
C021 30 
C023 AC 
C026 20 
C029 20 
C02C 18 
C02D 90 

C02F AD 
C032 8D 
C035 A9 
C037 8D 
C03A 20 
C03D EE 
C040 AD 
C043 CD 
C046 30 
C048 AD 
C04B 8D 
C04E AD 
C051 8D 
C054 AD 
C057 8D 
C05A AC 
C05D 20 
C060 8D 



47 03 
79 C0 

2C CI 

77 C0 

78 C0 
00 

7A C0 
7B C0 
7A C0 

79 C0 
7A C0 
0C 

7A C0 
FE C0 
7B C0 

E9 

47 03 
7A C0 
00 

79 C0 
7B C0 
79 C0 
7A C0 
79 C0 
2D 

79 C0 
76 C0 
7A C0 
79 C0 
76 C0 
7A C0 
7A C0 
FE C0 
76 C0 



CIRCLE DRAWING ROUTINES 
PLOTS HIRES CIRCLE ON THE 
COMMODORE 64. 

CODE BY: LESTER CAIN 

EXTERNAL GLOBL VARIABLES 



ST 


EQU $33C 


X1L0 


EQU ST 


X1HI 


EQU ST+1 


Y1L0 


EQU ST+2 


CXLO 


EQU ST+8 


CXHI 


EQU ST+9 


CY 


EQU ST+10 


RAD 


EQU ST+11 


MODE 


EQU ST+12 


SPLO 


EQU $B0 


SPHI 


EQU SPL0+1 




ORG $C000 



CIRCLE: PLOT A CIRCLE IN HIRES 

ENTRY CONDITIONS: 

CX AND CY SET BY CALLING 
RADIUS SET IN GLOBL RAD 

EXIT CONDITIONS: 

CIRCLE IS DRAWN IN HIRES 



CIRCLE 



LOOP 



L00P1 



L00P2 



IDA RAD 


; FETCH RADIUS 


STA DX 


;SAVE AS FIRST DX 


TAY 


;COPY RAD TO Y 


JSR MULT8 


;AND SQUARE IT 


STA RSQLO 


;SAVE FOR COMP. 


STY RSQHI 


;AND THE HI BYTE 


IDA #$0 


;ZER0 DY 


STA DY 




JSR COMPXY 


;PLOT 1ST 4 DOTS 


INC DY 


;LEG +1 


IDA DX 




CMP DY 


;45 DEGREES YET 


BMI L00P1 


;PL0T OTHER HALF 


LDY DY 


;C0MP OTHER LEG 


JSR COMLEG 


;PLOT ANOTHER 1 


JSR COMPXY 




CLC 


; FORCED JUMP 


BCC LOOP 




IDA RAD 


;GET THE RADIUS 


STA DY 




IDA #$00 


;ZER0 DX 


STA DX 




JSR COMPXY 


; COMPUTE THIS BAT 


INC DX 


;INC Y 


IDA DY 


; CHECK FOR = WILL 


CMP DX 


;MEAN CIRCLE COMP 


BMI DONE 


; CIRCLE DON 


IDA DX 


;SWAP FUNCTIONS 


STA TEMP 




IDA DY 




STA DX 




IDA TEMP 




STA DY 


;SWAP DONE 


LDY DY 


;C0MP. OTHER LEG 


JSR COMLEG 


; COMPUTE NEW LENG 


STA TEMP 









© 



© 



© 
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C063 AD 7A C0 




LDA DY 








C066 8D 79 C0 




STA DX 




o 




C069 AD 76 C0 




LDA TEMP 




V 




C06C 8D 7A 00 




STA DY 






Announcing 


C06F 20 7B 00 
C072 18 




JSR C0MPXY 
CLC 


; COMPUTE NEW SET 


o 


New Software 


C073 90 08 
C075 60 


DONE 


BCC L00P2 
RTS 


; RETURN TO CALL 




From MICRO 


C076 00 
C077 00 


TEMP 
RSQL0 


BYT 
BYT 


;TEMP STORAGE 


o 




0078 00 


RSQHI 


BYT 








C079 00 


DX 


BYT 








007 A 00 


DY 


BYT 




o 


• Mastering Your 
Vic-20(Cassette) 




, C0MPXY: COMPUTES X,Y COORDINATES 
IN EACH QUADRANT FROM DX,DY 
ENTRY CONDITIONS: 


o 


• Mastering Your 




DX, 


DY COMPUTED BY 


CALLING PROGRAM 




Atari(Diskette) 




, EXIT CONDITIONS: 

A DOT IS PLOTTED IN 


EACH 


o 


* Mastering Your 




; OF 


THE FOUR QUADRANTS 




Commodore 64(Diskette) 




X1L AND Y1L ARE THE 
X2L AND Y1L ARE THE 


OFFSET IN 1 
OFFSET IN 2 




Eight entertaining major projects 




X2L 


AND Y2L ARE THE 


OFFSET IN 3 


o 


on cassette or diskette, plus a 




X1L 


AND Y2L ARE THE 


OFFSET IN 4 




160-190 page book, teach you 
BASIC programming the easy way. 


C07B AD 45 03 
C07E 8D F9 00 


C0MPXY 


LDA CXHI 
STA X1H 


;HI CENTER 
;RT QUADS. 


o 


Run the programs, see what they 


0081 8D FB 00 




STA X2H 


;LT QUADS. 




do, how they are constructed and 


0084 AD 44 03 




LDA CXLO 


; CENTER L0 




how they work. 


C087 18 




CLC 




o 


Projects include Microcalc 


C088 6D 79 00 




ADC DX 






(display calculation program for 


C08B 8D F8 00 




STA X1L 






complex math), Player (compose 
and edit songs on your keyboard), 


C08E 90 08 
C090 AD 45 03 
C093 D0 03 




BCC CIPl 
LDA CXHI 
BNE CIPl 


;N0 OVERFLOW 
;IS HI ON 
;SKIP INCREM. 


o 


Master (guessing game for 1-2 


0095 EE F9 00 




INC X1H 


;UP RT HI+1 




players), Clock (character 










G 


graphics), and four more. 


C098 AD 44 03 


CIPl 


LDA CXLO 


; CENTER X 


Each package only $19.95 


C09B 38 




SEC 


;-DX 




(C-64 available in Sept.) 


C09C ED 79 00 




SBC DX 








C09F 8D FA C0 




STA X2L 


;NEW PLOT X LO 







C0A2 B0 03 




BCS CIP2 


;N0 BORROW 






C0A4 CE FB 00 




DEC X2H 


jHIBYTE OF X-l 




MicroCalc 














C0A7 AD 46 03 


CIP2 


LDA CY 


; CENTER Y 


o 


Faster and easier to use than 


C0AA 18 




CLC 


;+ DY 




spreadsheet programs, this full 


C0AB 6D 7A 00 




ADC DY 






screen calculator is useful in 


C0AE 8D FC 00 




STA Y1L 


;NEW PLOT Y L0 





business, home and school. A 










speedy way to learn BASIC 


C0B1 AD 46 03 




LDA CY 


; CENTER Y AG. 




expressions if you don't already 


C0B4 38 




SEC 


;-DY 




know them. 


C0B5 ED 7A 00 




SBC DY 




o 




C0B8 8D FD C0 




STA Y2L 


;L0 VALUE NEW Y 




There is no limit to the length 












or complexity of calculations and 




TRANSFER NEW VALUES TO X AND Y COORDINATES 


o 


screens can be automatically 




AND PLOT THE FOUR NEW 


POINTS. 


linked, saved on disk or cassette, 












and customized. 


C0BB AD F8 C0 




LDA X1L 


; UPPER RT. QD. 




Only $29.95. 

Available for C-64 


C0BE 8D 30 03 




STA X1L0 


;NEW X LO 


o 


C0C1 AD F9 C0 
C0C4 8D 3D 03 




LDA X1H 
STA X1HI 


;N0W HI VAL. 




Apple ll/lle, Atari 


C0C7 AD FC 00 




LDA Y1L 


;N0W DO Y 






C0CA 8D 3E 03 




STA Y1L0 


;0NLY LO VAL. 


o 


Micro, P.O. Box 6502 


C0CD 20 78 CI 




JSR PL0TXY 


;PL0T UP RT. 




Chelmsford MA 01824 












617/256-3649 


C0D0 AD FA 00 




LDA X2L 


;GET NEW X 





Visa and Mastercard Accepted 


C0D3 8D 3C 03 




STA X1L0 


;Y DOES NOT 




C0D6 AD FB C0 




LDA X2H 


; CHANGE 
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C0D9 8D 3D 03 




STA X1HI 


;THIS TIME 


C0DC 20 78 CI 




JSR PLOTXY 


;PLOT UP LT 


C0DF AD FD C0 


t 


LDA Y2L 


; CHANGE Y THIS 


C0E2 8D 3E 03 




STA Y1LO 


j TIME 


C0E5 20 78 CI 




JSR PLOTXY 


;PLOT LWR LT. 


C0E8 AD F8 C0 


t 


LDA X1L 


; CHANGE X THIS 


C0EB 8D 3C 03 




STA X1LO 


;TIME 


C0EE AD F9 C0 




LDA X1H 


;SO WE CAN 


C0F1 8D 3D 03 




STA X1HI 




C0F4 20 78 CI 




JSR PLOTXY 


;PLOT LWR RT. 


C0F7 60 




RTS 


; RETURN 


C0F8 00 


X1L 


BYT 




C0F9 00 


X1H 


BYT 




C0FA 00 


X2L 


BYT 




C0FB 00 


X2H 


BYT 




C0FC 00 


Y1L 


BYT 




C0FD 00 


Y2L 


BYT 





;COMLEG: COMPUTES UNKNOWN LEG OF TRIANGLE. 

; ENTRY CONDITIONS: 

; RADIUS (HYPOTENUSE) IN ACC, DY IN Y. 

;EXIT CONDITIONS: 

: DX CONTAINS THE OTHER LEG. 



C0FE 98 


COMLEG 


TYA 


;GET DY 


C0FF 20 2C CI 




JSR MULT8 


;DY*DY 


C102 8D 2A CI 




STA TEDYL 


; RETURN LO BYTE 


C105 8C 2B CI 




STY TEDYH 


;Y HAS HI BYTE 


C108 AD 77 C0 




LDA RSQLO 


;R LO 


C10B 38 




SEC 




C10C ED 2A CI 




SBC TEDYL 


;R LO -DY LO 


C10F 8D 2A CI 




STA TEDYL 




C112 AD 78 C0 




LDA RSQHI 


;R HI 


C115 F0 06 




BEQ XY1 


;NO HI BYTE 


C117 ED 2B CI 




SBC TEDYH 


;R HI -DY LO 


C11A 8D 2B CI 




STA TEDYH 




CUD AD 2A CI 


XY1 


LDA TEDYL 


;(R)-(DY)LO 


C120 AC 2B CI 




LDY TEDYH 


;HI BYTE 


C123 20 45 CI 




JSR SQRT 


;SQRT OF 


C126 8D 79 C0 




STA DX 


;SAVE FOR DX 


C129 60 




RTS 


;(R)-(dy) 


C12A 00 


TEDYL 


BYT 




C12B 00 


TEDYH 


BYT 





MULT8: 8 BITS BY 8 BITS 

ENTRY CONDITIONS: 

MULTIPLICAND IN Y, MULTIPLIER IN ACC. 

EXIT CONDITIONS: 

LO BYTE IN ACC. HI BYTE IN Y 



00AC 
00AD 
00AE 

C12C 
C12E 
C130 
C132 
C134 
C136 
C138 
C139 
C13B 
C13C 
C13E 
C13F 



85 AD 
84 AE 
A9 00 
A0 08 
46 AD 
90 03 
18 

65 AE 
6A 

66 AC 
88 

D0 F3 



ANSLO 
PLIER 
CAND 

'MULT8 



MUL1 



MUL2 



EQU $AC 
EQU ANSLO+1 
EQU ANSLO+2 



LDA 
LDY 



STA PLIER 

STY CAND 
#$00 
#$08 

LSR ALIER 

BCC MUL2 

CLC 

ADC CAND 

ROR A 

ROR ANSLO 

DEY 

BNE MUL1 



SAVE MULTIPIER 
SAVE MULTICAND 
INIT FIRST VALUE 
COUNTER 8 BITS 
TST NEXT BIT 
IF OFF ROUND 

IF ON, ADD 
SHIFT ANSWER 1 

DEC POS. COUNTER 
LOOP 8 TIMES 




Figure 1 



Refer to Figure 1 as this discussion 
proceeds. The first step will be to 
define the center of the circle, referred 
to as CX and CY. Any value will do for 
a starter, of course assuming it will fit 
into the screen limitations. Let it be 
CX = 100 and CY = 100 for an even set 
of figures to add to and subtract from. 
Pick out a nice radius for the circle, say 
R = 50. Divide the circle into 4 
quadrants and picture inside each 
quadrant a right triangle. One side will 
be DX, the other side DY and the 
hypotenuse is the Radius. The first 
point(s) to plot will be on the Radius. 
No problem so far; the first four points 
are just + or - from the center of the 
circle. But this is the end of the easy 
part. To compute the next point, add 
one to the value DY and using the 
Pythagorean theorem, compute DX. 
This formula says the unknown leg is 
equal to the square root of the 
(hypotenuse sq. - the known leg sq.|. 
Since this value is the same in all of the 
4 quadrants, only one computation is 
needed. Depending on which quadrant 
the point is in will determine whether 
the values DX and DY are added to or 
subtracted from the center CX,CY 
values. In quadrant 1, DX is positive 
and DY is negative. Figure 1 gives each 
quadrant DX and DY values. To get the 
circumference point in terms of X and 
Y, the DY and DX values will be 
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algebraically added to the CX and CX 
center for each point on the circle. 
Now, it is time to call the plotting 
routine 4 times, once for each 
quadrant. Also this is where the plot- 
ting routine is more or less machine 
dependent. 

Continue incrementing DY until it 
is > = DX. This will plot half of the 
circle from the horizontal axis right and 
left. When this point is reached, to 
make the circle come together in a neat 
fashion, it is necessary to swap DX and 
DY and plot from the top and bottom 
towards the already plotted portion of 
the circle. Continuing the plot without 
the swap will leave gaps at the vertical 
axis, because DY has become larger 
than DX, stretching integer arithmetic 
beyond its limits of accuracy. 

Listing 1 is the Basic loader to load 
the machine code into memory. Type it 
in carefully and save often, especially 
before trying to run it. The last 39 bytes 
is a screen clear routine. Listing 2 is a 
short demo to exercise the code. Type 
it and save it also. Run the loader first, 
then the demo routine. If all the data 
statements were correct, the demo will 
draw four sets of circles converging at a 
peak in the center of the screen. These 
two routines are limited to the Com- 
modore 64 HiRes screen. 

Some explanation of the Demo is in 
order to explain how to use the Circle 
function. 



Line 

130 



Line 
140 



Line 
150 

Line 
160 



Sets up the storage in the 
cassette buffer and equates 
the variables of the circle 
parameters. CL is the 
center, X value lo, Ch X 
value hi. 

Video chip address, CY is 
storage for center of the cir- 
cle. 

Turns on the HiRes 
$2000 and clears it. 

Sets the mode bit to draw. 



C141 A8 
C142 A5 AC 
ClU 60 



TAY 

LDA ANSLO 

RTS 



;Y=HI BYTE 
;A=L0 BYTE 



SQRT: 16 BIT SQUARE ROOT 

ENTRY CONDITIONS: 

LO BYTE IN ACC . , HI BYTE IN Y 

EXIT CONDITIONS: 
SQRT OF NO. IN ACC. 



00AC 


L0 


EQU $AC 






00AD 


HI 


EQU L0+1 




O 


00AE 


L01 


EQU L0+2 






00AF 


HI1 


EQU L0+3 






C145 85 AC 


SQRT 


STA 


L0 


;SAVE L0 BYTE 


o 


C147 84 AD 




STY 


HI 


;SAVE HI BYTE 




C149 A2 01 




LDX #$01 


; START WITH FIRST 1 




C14B 86 AE 




STX 


L01 




o 


C14D CA 




DEX 




; SUBTRACTION REG 


C14E 86 AF 




STX 


HI1 


;SQRT =0 




C150 38 


LOP 


SEC 








C151 A5 AC 




LDA 


L0 


;SAVE REM IN Y 


o 


C153 A8 




TAY 








C154 E5 AE 




SBC 


L01 


;SUB ODD FROM LO 




C156 85 AC 




STA 


L0 


;0NE REM 




C158 A5 AD 




LDA 


HI 


;SUB 1 FROM HI 


o 


C15A E5 AF 




SBC 


HI1 






C15C 85 AD 




STA 


HI 


;HI REMAINDER 




C15E 90 0D 




BCC 


DNE 


;- RESULT 


o 


C160 E8 




INX 






C161 A5 AE 




LDA 


L01 


;ADD 1 + CARRY 




C163 69 01 




ADC 


#1 






C165 85 AE 




STA 


L01 




o 


C167 90 E7 




BCC 


LOP 


NO NEED TO UP HI 




C169 E6 AF 




INC 


HI1 


,HI SUB +1 




C16B D0 E3 




BNE 


LOP 






C16D 86 AC 


DNE 


STX 


L0 


.CHECK FOR ROUND 


o 


C16F C4 AC 




CPY 


L0 


REM<N 




C171 90 02 




BCC 


RETS 






C173 E6 AC 




INC 


L0 


ROUND UP 


o 


C175 A5 AC 


RETS 


LDA 


L0 


PUT SQRT IN ACC. 




C177 60 




RTS 









C178 AD 3C 03 


C17B 48 


C17C 29 07 


C17E 8D 32 C2 


C181 68 


C182 29 F8 


C184 85 B0 


C186 AD 3D 03 


C189 85 Bl 


C18B AD 3E 03 


C18E 29 07 


C190 18 


C191 65 B0 


C193 85 B0 



PL0TXY: PLOTTING ROUTINE 
USED IN GRAPHICS HIRES MODE 
ENTRY CONDITIONS: 

MODE IS SET TO 0,1,2 

X IS IN X1L0 AND X1HI 

Y IS IN Y1L0 AND Y2HI 
EXIT CONDITIONS: 

1 BIT IS SET FOR X,Y IN HIRES SCREEN 



PL0TXY 



LDA X1L0 


;LINE=XAND7 


PHA 


O 


AND #$07 




STA LINE 




PLA 




AND #$F8 


; STRIP X OF L0 3 BITS ° 


STA SPL0 


j INITIAL POINT 


LDA X1HI 




STA SPHI 


j HI BYTE O 


LDA Y1L0 




AND #$07 


; STRIP Y OF HI 5 BITS 


CLC 




ADC SPL0 


;AND ADD TO INIT. © 


STA SPLO 
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C195 A9 00 


LDA #$00 ;ADD IN ANY CARRY 






C197 65 Bl 


ADC SPHI 




© 


C199 85 Bl 


STA SPHI 




C19B AD 3E 03 


LDA Y1L0 ;R0W=INT(Y/8) 






C19E 4A 


LSR A 






C19F 4A 


LSR A 




© 


C1A0 4A 


LSR A 






C1A1 A8 


TAY ; GIVES INDEX 


Line 




C1A2 C0 19 


CPY #25 ; DISALLOW OUTSIDE 


170 Initial values of Radius, 




C1A4 10 2C 


BPL RETP ; GRAPHICS RANGE 


center X and Y. 


© 


C1A6 B9 00 C2 


LDA COLTAB,Y ;GET LO OFFSET 


Line 




C1A9 18 


CLC 


180-250 Draws the four sets of 




C1AA 65 B0 


ADC SPLO ;ADD TO LO 3 OF Y 


circles. 


© 


C1AC 85 B0 


STA SPLO ;AND INITIAL POINT 


Line 


C1AE B9 19 C2 


LDA ROWTAB,Y ;GET HI OFFSET 




C1B1 65 Bl 


ADC SPHI 


260 Kills some time, changes 




C1B3 85 Bl 


STA SPHI 


background color and starts 


© 




f 


over again. 


C1B5 AD 48 03 


DETMOD LDA MODE ;MODE 0,1,2 


Line 




C1B8 F0 19 


BEQ ANDBIT ; CLEAR WITH AND 


280 If CX is > 255 then make 




C1BA C9 02 


CMP #2 


low value -255 and sets hi X 


© 


C1BC F0 29 


BEQ XORBIT ;CLR OR SET? 


to 1. 
Line 




C1BE C9 01 


CMP #1 




C1C0 D0 10 


BNE RETP ;BAD VALUE 








290 Poke the Center value of 


© 


C1C2 98 


'SETBIT TYA ;SAVE Y 


Circle to area for the 




C1C3 48 


PHA 


machine code to use. Set 




C1C4 AC 32 C2 


LDY LINE ; INDEX 


the Radius and draw the cir- 


© 


C1C7 B9 F8 CI 


LDA BITTAB,Y ;BIT VALUES 


cle. 




C1CA A0 00 


LDY #$00 


Line 




C1CC 11 B0 


ORA (SPLO),Y ;SET SPEC. BIT 


310 Resets the screen to nor- 




C1CE 91 B0 


STA (SPLO),Y 


mal LoRes mode and quits. 


© 


C1D0 68 


PLA ; RESTORE Y 


GOTO 310 after a break to 




C1D1 A8 


TAY 






C1D2 60 


RETP RTS 


reset. 
Line 


© 


C1D3 98 


ANDBIT TYA 


320 Call screen clear routine. 




C1D4 48 


PHA 






C1D5 AC 32 C2 


LDY LINE 


Three parameter are necessary to 


© 


C1D8 A9 FF 


LDA #$FF ;USE RECIPROCAL 


draw the circle: 




C1DA 38 


SEC 


1) A Center X lo and Center X hi 




C1DB F9 F8 CI 


SBC BITTAB,Y ;OF SET FUNCTIONS 


(0-320). CL and CH in Demo. 


© 


C1DE A0 00 


LDY #0 


2) A Center Y lo value. (0-200). CY in 
Demo. 

3) A radius (0-255). R in Demo. 


C1E0 31 B0 


AND (SPLO),Y 




C1E2 91 B0 
C1E4 68 


STA (SPLO),Y 
PLA 


© 


C1E5 A8 


TAY 




C1E6 60 


RTS 


The circle will wrap around on the 






f 


X axis and will clip at Y greater than 




C1E7 98 


XORBIT TYA ;XOR WILL ALLOW 


200 or less than on the Y axis. Funny 


© 


C1E8 48 


PHA ; WRITING AND 


things happen if the Y value exceeds a 




C1E9 AC 32 C2 


LDY LINE ; ERASING OVER 


value or 200, so the routine will clip for 




C1EC B9 F8 CI 


LDA BITTAB,Y ; OTHER GRAPHIC 


you. 

I have included the assembly 


© 


C1EF A0 00 


LDY #$00 ; VALUES 


ClFl 51 B0 
C1F3 91 B0 
C1F5 68 


EOR (SPLO),Y 
STA (SPLO),Y 
PLA 


language source for assembly buffs and 
for added explanation of the theory. All 


© 


C1F6 A8 


TAY 


the routines with the exception of 


C1F7 60 


RTS 


PLOTXY should be adaptable to any 






t 


machine with HiRess capabilities. 






; TABLE OF BIT VALUES TO SET IN A 


CIRCLE is the master routine. It 


© 




; BYTE INDEXED BYT VALUE FOUND IN LINE 


squares the Radius and saves it for the 






t 


remaining computations, and plots the 




C1F8 80 40 20 


BITTAB BYT $80, $40, $20 


first four dots. At LOOP DY is 


© 


C1FB 10 08 04 


BYT $10, $08, $04 


incremented and checked if > = DX, if 




C1FE 02 01 


BYT $02, $01 
• LO BYTE VALUES SCREEN ADDRESSES 




© 




; TOP TO BOTTOM ASSUMING STARTING 
; ON AN EVEN BOUNDARY 
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not the next four points are computed 
and plotted. When the test passes, 
LOOP1 swaps DX and DY. The plot 
direction here is from vertical axis, 
right and left. When DX becomes = 
DY, the circle is complete and a return 
is made. 

COMPXY does the adding and 
subtracting of DX and DY from the 
center point. After each quadrant is 
computed, the new X and Y values are 
set to on by calling the plotting routine. 

COMLEG finds the unknown value 
DX using the Pythagorean formula, the 
Radius squared is computed in 
CIRCLE. 

MULT8 is an 8 bit multiply 
routine. An 8 bit multiply was chosen 
due to speed, and anything over 255 
would be out of range of most screen 
displays, since this would only be half 
of the total in the Circle. 

SORT returns an 8 bit square root of 
the unknown leg of the right triangle. 
Final value is rounded towards the 
integer value the remainder is closest 
to. 

PLOTXY is the machine dependent 
routine made to work on the 
Commodore 64's HiRes screen. 
Basically it uses the formula from the 
Programmer's Reference for setting a 
bit on the HiRes screen. Where it 
deviates is the final way it determines 
the byte on the screen. The mode of 
plotting the bit is determined from the 
value in The Globl MODE. The bit can 
be set with an OR, cleared with an 
AND or toggled with an XOR. The XOR 
will allow an object to be drawn on top 
of another and then erased, leaving the 
object underneath undisturbed. 
However, the XOR doesn't work very 
well on the circle, due to an occasional 
overlap of bits at the meeting point of 
the circle halves. Look over this 
routine as it can be used to plot a bit at 
X and Y from any kind of function 
(circle, line, rectangle, etc.). 

CLEAR clears the HiRes screen and 
sets screen color to the value found at 
Address 02, poked here by the Basic 
Demo. 

AICAO 



C200 00 40 80 COLTAB 

C203 C0 00 40 

C206 80 C0 00 

C209 40 

C20C 00 40 

C20F C0 

C212 80 C0 

C215 40 80 



80 C0 



00 40 



C0 



BYT $0,$40,$80 
BYT $C0,$0,$40 
BYT $80,$C0,$0 
BYT $40,$80,$C0 
BYT $0,$40,$80 
BYT $C0,$0,$40 
BYT $80,100,10 
BYT $40,$80,$C0,$0 



HI BYTE VALUES 

TABLE ASSUMES HIRES STARTS ' $2000 



C219 20 21 22 


ROWTAB 


BYT $20, $21, $22, $23, $25 


C21E 26 27 28 




BYT $26,$27,$28,$2A 


C222 2B 2C 2D 




BYT $2B,$2C,$2D,$2F 


C226 30 31 32 




BYT $30, $31, $32, $34 


C22A 35 36 37 




BYT $35,$36,$37,$39 


C22E 3A 3B 3C 




BYT $3A,$3B,$3C,$3E 


C232 00 


LINE 


BYT 


;L0 3 BITS 




; CLEAR : 


CLEAR HIRES SCREEN ' $2000 


C233 A9 20 


CLEAR 


IDA #$20 


; NUMBER OF PAGES 


C235 AA 




TAX 


;SET UP SCREEN 


C236 85 Bl 




STA SPHI 


; ADDRESS 


C238 A9 00 




IDA #$00 




C23A 85 B0 




STA SPLO 




C23C A0 00 


CLR 


LDY #$00 




C23E 91 B0 


CLRl 


STA (SPL0),Y 




C240 C8 




INY 




C24l D0 FB 




BNE CLRl 




C243 E6 Bl 




INC SPHI 




C245 CA 




DEX 


jDO 20 PAGES 


C246 D0 F4 




BNE CLR 




C248 A5 02 




IDA $02 


; VALUE POKED IN 
; FROM BASIC 


C24A 9D 00 04 


COLOR 


STA $0400, X 


; FIRST PAGE OF 


C24D 9D 00 05 




STA $0500, X 


; L0 RES SCREEN . 


C250 9D 00 06 




STA $0600, X 




C253 9D 00 07 




STA $0700, X 




C256 CA 




DEX 




C257 D0 Fl 




BNE COLOR 




C259 60 




RTS 




C25A 




END 





o 



o 



o 



o 



100 REM — CIRCLE DEMO — 

110 REM — CIRCLE ROUTINE RESIDENT — 

120 REM — 8 $C000 

130 TS=828 : CL=TS+8 : CH=TS+9 : RAD=TS+11 : M0DE=TS+12 

140 V=53248:CY=TS+10:POKE 2,1 

150 POKE V+17,59:P0KE V+24,24:G0SUB 320 

160 POKE M0DE,1 

170 R=40:CX=100:Y=100 

180 FOR 1=1 TO 12:C1=0 

190 GOSUB 280:CX=CX+5:R=R-3:NEXT:C2=CX:R1=R 

200 CX=CX+5:F0R 1=1 TO 12:C1=0 

210 GOSUB 280 :CX=CX+5:R=R+3: NEXT 

220 R=R1:CX=C2:F0R 1=1 TO 12:C1=0 

230 GOSUB 280 :Y=Y-5:R=R+3: NEXT 

240 Y=100:R=R1:CX=C2:FOR 1=1 TO 12:C1=0 

250 GOSUB 280 :Y=Y+5:R=R+3: NEXT 

260 GOSUB 330:A=A+1:IF A> 31 THEN A=l 

270 POKE 2, A: GOSUB 320: GOTO 170 

280 CS=CX:IF CX>255 THEN CX=CX-255:C1=1 

290 POKE CL,CX:P0KE CH,C1:P0KE CY,Y:P0KE RAD,R:SYS 49152: 

CX=CS: RETURN 
310 POKE V+17,27:P0KE V+24,21:END 
320 SYS 49715: RETURN 
330 FOR T=l TO 3000: NEXT T: RETURN 



o 
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Graphicom and the 
Koalapad 



Chicago Rainbowfest 

Over a year has gone by since the first Color Computer 
only show, Rainbowfest. Since that first show in Chicago, 
there have been several around the country, most have 
been too far away for me to attend. I am looking forward to 
traveling to Chicago again for the next Rainbowfest. 

At the last show, I enjoyed meeting many of the people 
who have made the Color Computer one of the most 
expandable and usable computers on the market. Also, 
many people who have written powerful software were in 
attendance. This show should be no different; if you can 
attend, please look for me and say hello. 

Giaphicom and the Koalapad 

This month, I must comment in more detail about one 
of the best graphic oriented programs I have seen for the 
Color Computer, Graphicom. Yes, Graphicom is fun for 
the kids to play with and also interesting, but don't 
dismiss it as another toy program. For example, I have two 
practical and useful applications. I use it to create logos 
and designs for my company products. In addition, I use it 
to draw and print schematic diagrams. There are many 
other applications that relate to graphics in a practical 
business and personal sense. 

Drawing with Graphicom requires a single joystick and 
two fire buttons. One option, however, is to use a 
Koalapad, modified to fit the Color Computer. For those of 
you who may be unaware, the Koalapad is a small drawing 
tablet that plugs into the joystick port of several different 
types of computers. There are versions for the Apple, 
Atari, Commodore, IBM PC, and other personal 
computers, and it comes withth software that allows the 
use of this sophisticated digitizer. 

Koala Industries, however, has not seen fit to make a 
version of the Koalapad for the CoCo. The enterprising 
people at Cheshire Cat Software (creators of Graphicom] 
have included modification instructions to enable the use 
of the Koalapad with their software. After following these 
instructions, I found the pad to be a useful tool for other 
joystick applications as well. Essentially, the pad is an 
unusual joystick. If nothing is being pressed on the face of 
the pad, the joystick port returns coordinates of 32,32 (the 
joystick is centered) . If you use a finger or other object to 
press on the face of the pad, the joystick port reports the 
coordinates of the location of the pressure on the pad. 
Moving the finger, or the wood "pencil" that comes with 
the pad, will cause the joystick coordinates to change in 
relation to the new location. The result of all this is that 
the modified Koalapad can be used anywhere you can use a 
standard joystick. 



by John Steiner 

This new application of a joystick intrigued me, and I 
have found other joystick software that can use the 
Koalapad to better advantage than a standard joystick. It 
occurred to me that other people might be interested in 
using the Koalapad for use with Graphicom, or for other 
purposes. I contacted Bob Rosen of Spectrum Projects, 
publisher of the Graphicom program, and he gave me 
permission to pass along the modification instructions to 
you. 

The modification instructions are for the Atari version 
of the Koalapad. I don't know how much difference there 
is between versions, so you might be sure to get the Atari 
version. The pad retails for around $100.00, but I have 
seen them on sale for less than $80.00. In addition to the 
pad, you will need a six conductor cable, two 1 Megohm 
resistors, and one or two din plugs that fit the joystick 
port. A 9 to 12 volt supply is also required. 

Figure one contains a circuit board layout of the pad. It 
is easy to interpret the drawing, once you take the screws 
out of the bottom of the pad. By the way, there is one 
screw underneath the label that is stuck to the bottom of 
the pad. Removing this screw will void your warranty on 
the pad, so you might want to have the store you 
purchased the pad from check the pad to make sure it is a 
working unit before you take it apart. 

From the diagram in figure 1, the six wires are 
connected as follows: 

Step 1 to pin 1 of the right joystick din plug. 

Step 2 to pin 2 of the right joystick din plug. 

Step 3 to pin 4 of the left joystick din plug. (See next 

paragraph) . 

Step 4 to pin 4 of the right joystick din plug. 

Step 5 to pin 3 of the right joystick din plug and minus of 

the 8.3 volt supply. 

Step 6 to positive of the 8.3 volt supply. 



Figure 1 

rttdif icauon of Atari 



Koala Pad for CoCo 

joystick Port Of 7RS80 
COLOR CDfPUTDP. 

Merely add 6 wires 
to the board, solder in 
two resistors and add 
8 .3 >J power supply . 

1) Hook up X axis to 
pin 4 of 339 chip . 

2) hook up Y axis to 
pin 6 of 339 Chip . 
3> Connect left fire 
button . 

4) Connect right fire 
button . 

5) Connect to ground 

6) Connect 8 .3 'jolts 

fidd two 1 meg ohm 
resistors as snouri 
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The Koalapad has two "fire" buttons on the top of the 
pad. The right joystick and fire button connections are 
hooked to a single din plug. The left fire button is 
connected to the other din plug for use with Graphicom. I 
preferred to have only one fire button hooked up to the 
pad, thus allowing me to have a standard joystick, or 
remote footswitch in the left joystick port. With 
Graphicom, the left joystick is not used, only the left fire 
button. If you are using the tablet with other software, you 
may want the flexibility of having a joystick and Koalapad 
in either port at the same time. 

Figure two is a schematic of a simple 8.3 volt regulator 
that is used to obtain power for the Koalapad. The manual 
states that the 8.3 volts there is quite critical, so they 
recommend regulating it. Because I was in a hurry to see 
how it worked, and had an old nine volt AC power supply 
sitting around (one of those that contain a small 
transformer that plugs into the wall, and a small cord that 
ran to a nine volt battery snap), I used it. I found that the 
load on the Koalapad pulled the 9 volt supply down to 8.45 
volts. The pad seems to work fine. I would, however, 
follow their recommendations on regulating the supply, if 
you plan on heavy duty use of the pad. 



This s i mp.1 e schematic shows hou to use < 
7885 voltage regulator as a variable 
voltage regulator that pets a +12 volt 
input, and yields a voltage tho. can be 
adjusted to the apprxi matel u +8-3 volts 

"la Pad mod- 



required by the CoCo Koal< 



+ 1 2V o 

Rl 1900 ohms <f ixed) 
R2 1000 ohms <varible> 



7805 



V 



JR1 



+5 to 
+11V 



R2 



I suggest getting your -+12V from off your 
Color Compter's motherboard, and running 
it to "jour pad via the center pin of the 
Joystick connector- You'll have to 
disconnect this pin from ground and then 
connect it to + 12V on your CoCo board. 



Figure 2 



Figures one and two were both created using 
Graphicom, by the people at Cheshire Cat Software, and 
are reprinted from page 32 of the Graphicom software 
manual by permission of Spectrum Projects. These two 
illustrations should give you an idea of the usefulness and 
power of the Graphicom software. 

After these simple modifications, plug the pad into the 
right joystick port, and run the following test program. 

10 CLS 

20 A = JOYSTK(0):B = JOYSTK[1J 

30 PRINT@224,A,B 

40 GOTO 20 

When you run the program, it should print 32 SPACES 
32 on the screen, indicating the two values being read in 
from the right joystick port. Use the wood pencil to touch 
the very upper left hand corner of the pad. The numbers 
should change to 0,0. If you press on the lower right hand 
corner, it should return 63,63. Moving the stick on the pad 
should cause the numbers to change with respect to the 
position of the stick. 

I have had a lot of fun with the pad, and pass this 
information along to those of you who like to experiment 
with hardware. The process is fairly simple. If you try the 
modification, and have any problems, you may give me a 
call in the evening at 701-281-0549. 1 will try to help. Have 
fun, and if you develop any software that uses the pad, let 
me know. The pad is a useful, and interesting accessory for 
the CoCo. 

JMCRO 
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A Note to Our Readers: In the last issue [Micro 72:26) we 
printed an article on a Better Random Number Generator. 
Due to problems with our typesetting equipment, when 
we transferred the text and program, all of the special 
symbols such as plus signs, equal signs, greater than, less 
than, etc. were missing. This was brought to our attention 
by the authors after the issue was already printed. To 
correct this problem, we are listing the appropriate 
changes for the text and reprinting the entire program 
(minus the hex listing, since it was correct). We are sorry 
for any inconvenience this may have caused and assure 
you that the problem has been rectified. Thanks. 

In the text wherever R[I1], R[I2],..., R[IK], R[N1], etc. 
appear there should be a plus sign between the letters and 
numbers in the brackets — R(I+ 1], R[I + 2], etc. 

Page 28, 2nd para., should read R[I+ 1] = R[I] + 1 



Page 29 , last para., should read (R[NJ/mJ 

Page 31, under Combination of RNG's, 2nd para., should 
read RANDOM = XRAN [Y * 100] 

Page 32, 1st para., should read RAN = USR( SELECT) 

Page 32, 2nd column, 4th para., should read 
(A + B) mod C = (A mod C + B mod C) mod C 



1234 5 
X 11111 



OLDR AN 
MULT 



1 

12 

123 

1234 



13 71 



1234 5 
23 4 5 
345 
45 
5 
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********************* 


BPL TRNSFR 


; IF NO, DO NEXT 


* * 




IF YES, MULTIPLY. 


* A BETTER RANDOM NUMBER GENERATOR * 


LDX #$04 


; INDEX # OF BYTES 


* FOR APPLESOFT * 


STX BYTCNT 


; KEEP TRACK OF # BYTES 


* # 




DEALT WITH SO FAR 


* COPYRIGHT 1984 * 


NXTBYT LDA MULT,X 


; LEAST SIGNIF BYTE 


* THE COMPUTERIST INC. * 


STA MULTMP 




* ALL RIGHTS RESERVED * 


LDY #$07 


; COUNT # BITS 


* # 


MULPLY LSR MULTMP 


; GET LEAST SIG BIT. 




BCC SHIFT 


; BIT=0 DON'T ADD. 


********************** 


CLC 


; BIT SET, SO ADD 






ADD LDA OLDRAN, X 


; OLDRAN TO NEWRAN. 




, TO USE THE RNG SUBROUTINE, YOU MUST 


ADC NEWRAN, X 






, SET UP THE USR FUNCTION. 


STA NEWRAN, X 






, SEE EDITORIAL NOTE 


DEX 


; ALL BYTES DONE 






BPL ADD 


; NO ADD NEXT 




; LOAD IN PARAMETERS FOR THE RNG'S 


CLC 


; YES, SO PREPARE TO 
SHIFT OLDRAN (IE 




; Z: RAN=(3l4l5938565*OLD+24607)MOD20 




MULT * 2). DROP LAST 
CARRY AS IT IS 


ZADD BYT $00, $00, $00, $67, $27 




MOD20 ANYWAY. 


ZMULT BYT $07,$50,$89,$2E,$05 


SHIFT LDX BYTCNT 


; # BYTES TO SHIFT 


ZRAN BYT $00 ,$00, $00, $00, $00 


SHFTIT ROL OLDRAN, X 




; Y: RAN=(84l3453205*OLD+99991)MOD20 


DEX 


.; BYTE LEFT 


y 


BPL SHFTIT 


; YES, SHIFT IT. 


YADD BYT $00, $00, $01 ,$86, $97 


LDX BYTCNT 


; RECOVER # BYTES. 


YMULT BYT $01,$F5,$7B,$1B,$95 


DEY 


; MORE BITS LEFT 


YRAN BYT $00, $00, $00, $00, $00 




IN THIS BYTE 


; X: RAN = (27182819621*OLD+3)MOD20 


BPL MULPLY 


; YES, MULT BY NEXT. 


y 


DEC BYTCNT 


; NO, DONE A BYTE. 


XADD BYT $00, $00, $00, $00, $03 


LDX BYTCNT 


; ANY BYTES LEFT 


XMULT BYT $06,$54,$38,$E9,$25 


BPL NXTBYT 


; YES MULT BY IT. 


XRAN BYT $00, $00, $00, $00, $00 






; ADD LOOKUP TO BASE LOCS FOR 


LDY XYORZ 


;, DONE. PUT THE 


; PARAMETER ADDRESSES FOR CURRENT RNG. 


LDX #$04 


; NEW RND INTO THE 


LOOKUP BYT $04, $13, $22 ; Z, Y, X 


MOVRAN LDA NEWRAN, X 


; RESPECTIVE RNG'S 


y 


STA LSTBAS,Y 


; LAST RAN STORAGE. 


XYORZ BYT $00 ; WHICH GENERATOR 


DEY 




YTEMP BYT $00 ; Y-REG ON ENTRY 


DEX 


; MORE TO MOVE 


XTEMP BYT $00 ; X-REG ON ENTRY 


BPL MOVRAN 


; YES, DO. 


MULT BYT $00, $00, $00, $00, $00 






OLDRAN BYT $00, $00, $00, $00, $00 


DONE. NOW TO NORMALIZE FAC, ALIAS NEWRAN. 


y 

RNG PHP ; SAVE EVERYTHING 


LDY #$28 


; $28 (40) BITS IN FAC. 


STX XTEMP 


NRMLIZ LDA NEWRAN 


; FIND HIGHEST SET. 


STY YTEMP 


ROL 


; # SIGNIFICANT = 


JSR SIGN ; SEE EDITOR'S NOTE FOR 




28 - # NOT SET 


; SIGN ROUTINE 


BCS BITSET 


; LEAVE WHEN TOP BIT FOUND 


; FAC HOLDS S OF USR(S) 


ROL NEWRAN+4 


; NOT FOUND YET, SO 


; PUT FF IN A IF S<0, 


ROL NEWRAN+3 


; GET RID OF THE 


; PUT IF 0, 1 IF S> 


ROL NEWRAN+2 


; BIT AT THE TOP. 


TAX ; FROM THIS 


ROL NEWRAN+1 


; Y WILL KEEP TRACK 


INX ; DECIDE WHICH RNG 


ROL NEWRAN 


; OF # OF BITS LEFT. 


LDY LOOKUP, X ; VIA LOOKUP TABLE AND 


DEY 


; ANY LEFT 


STY XYORZ ; SAVE IT FOR LATER 


BNE NRMLIZ 


; YES, KEEP LOOKING 








NO, ALL DONE. 




NOW THAT WE KNOW WHICH GENERATOR, MOVE 


DEY 


; PROTECT AGAINST 




ITS CONSTANTS TO THE TEMP LOCS. 




DIVIDE BY 0. 






BITSET LDA #$00 


; PUT IN FAC'S 


LDX #$04 ; LOOP TO TRANSFER 


STA NEWRAN+4 


; SIGN BYTE. 


TRNSFR IDA ADDBAS,Y ; RNG'S VALS TO 


TYA 


; GET # SIG BITS 


; STANDARD LOCS, I.E. 


CLC 


; PUT IN FAC'S +$80 


STA NEWRAN,X ; ADD CONST TO NEWRAN, 


ADC #$58 


; FORMAT: $58+$28=$80. 


LDA MULBAS,Y ; MULT CONST 


STA RANEXP 


; PUT IN EXPONENT 


STA MULT,X ; TO MULT, 




BYTE AND DONE. 


LDA LSTBAS,Y ; LAST RND VAL FROM 


LDY YTEMP 


; SO, UNSAVE 


STA OLDRAN, X ; THIS RNG TO OLDRAN 


LDX XTEMP 


; EVERYTHING 


DEY 


PLP 


; AND 


DEX ; 5 BYTES DONE 


RTS 
END 


; SAY GOODBYE. 
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Name: Printerface^Intelligent 

Interface 

Hardware: Printers: Diablo Hytype I, 
Hytype II, DEC LQP-W 
Xerox 

Description: This unique printer 
interface board is installed in the 
printer rather than the computer, and 
upgrades an older printer to perform 
like the best Daisy Wheel printers. 
Model DT150 and DT151A intelligent 
interfaces snap into place without 
modifying the printer and provide all 
standard configurations, including 
RS232 serial, Centronics parallel, 
IEEE488, and Current loop. 

Features include automatic 
bidirectional printing, microspace, 
proportional spacing, bold facing, auto 
centering, variable pitch, self test and 
debug modes. Accessories available 
include a 16K buffer memory and a 
front control panel for 16 functions. 

Price: $395.00 

Contact: Kuzara International 

7770 Vickers, Suite 105 
San Diego, CA 92111 
619/569-9107 




JSfame: MasterType 

Hardware: Apple, Atari, 

Commodore-64 

Description: "Mastertype" is the best- 
selling educational software program, 
having sold over 150,000. It teaches 
typing and keyboard skills through an 
exciting arcade game format, and is 
now the first software program 
designed to teach Dvorak keyboard 
skills on the Apple lie. The new version 
has been enhanced with HiRes 
graphics, scoring retention, and, in 
addition to the 18 lessons on the 
standard QWERTY keyboard, five 
lessons on the Dvorak keyboard. 

The Dvorak keyboard increases 
speed and comfort because the most 
frequently used keys are placed on the 
"home row" beneath the typists 
strongest fingers. It is beginning to gain 
wide acceptence. 

Price: $39.95 / 

Contact: Scarborough Systems 
". 25 North Board*'ay 

Tarry townTNY 10591 

914/332-4545 



Name: B.I.-80 Column Adaptor 

System: Commodore-64 

Description: A high-quality 80 column 
plug-in module that eliminates the 
problems of snow, fuzziness, hashing 
and interference. It gives optimum 
clarity, even with a full screen of 
characters, and can easily switch from 
40 to 80 column display at any time. 

B.I. -80 can be used with 
Commodore color monitors 1701 and 
1703, or with any monochrome video 
monitor. It is self-initializing, with 
complete 80 column operating system 
and BASIC 4.0 language built in. 
Comes with one year warranty, and full 
documentation, including a description 
of the BASIC 4.0 language. 

Price: $ 

Contact: Batteries Included 

186 Queen Street West 

Toronto, ON m5v lzl 

Canada 

416/596-1405 




Name: 


Decisions 


System: 


Atari 


Memory: 


48K 



Description: A new program that 
provides assistance on making a logical 
choice among several alternatives, for 
both home and business use. The 
program is flexible enough to analyze 
any multiple choice decision. Features 
such as fully prompted inputs, help 
screens, rapid re-analysis and thorough 
reference manual make it easy to use. 
Graphic output screens are easily 
interpreted and a hard copy record is 
provided to users with an 80-column 
printer. 

The program uses logical analysis 
based on scientific principles. It is 
available either on 5 1/4" disk or 
cassette tape. Available at some dealers 
or by mail order. 

Price: $37.50 

Contact: Lateral Software 
P.O. Box 605 
Stanton, CA 90680 
714/826-3970 
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Name: Interface Adapter Board 

System: Commodore 64 

Description: The 6522 VIA (Versatile 
Interface Adapter) input/ output chip 
interface adpater board allows 6522 
programming techniques, covered in 
many available books, to be applied to 
the C-64 for real-time control 
applications. It allows full use of the 
IRQ interrupt and, when combined 
with the C-64's memory capacity, 
provides a powerful development 
system and controller in one package. 
Extensive application notes and 
programming examples are included. 

Each board includes two 6522s, 
with total of four 8-bit bidirectional 
I/O ports, eight handshake lines, four 
16-bit timer/ counters. Up to four 
Model 64IF22 boards can be connected, 
providing 16 8-bit ports. 

Price : $ 1 69 . 00 for first; $ 1 49 for 

each extra 
Contact: Schnedler Systems 

1501 N. Ivanhoe, 

Dept. NR 

Arlington, VA 22205 

703/237-4796 




Name: Apple SourceLink 

System: Apple n, lie, II Plus 
Memory: Minimum 48K 

Description: Communications 
software designed to supplement the 
use of The Source by personal 
computer owners. It is compatible with 
the new Apple modem, as well as the 
Hayes and Transend modem products. 
The software includes automatic dial- 
up and sign-on procedure for Telenet, 
Uninet and Sourcenet networks, 
simultaneous capture of data from The 
Source into the Apple memory or disks, 
including a capture editor and 
simplified transfer of data from disks to 
The Source. An additional feature 
allows Apple and IBM users to 
automatically access any number of 
pre-determined services and databases 
once online. 

Contact: The Source 

1616 Anderson Road 
McLean VA 22102 
703/734-7500 



Name: ScreenShooter 

Hardware: CRT 

Description: A simple way to take 
photos and slides of a computer CRT 
using Polaroid 600 High Speed color 
film, Polachrome 35mm instant 
slide film, or conventional 35mm 
color or black and white films. The 
outfit includes a Polaroid One Step 
600 Camera, CRT hood, CRT hood 
adapter, diopter lens and 35mm SLR 
camera bracket. 

When using the Polaroid One 
Step, camera exposure is automatic. 
You place the Screenshooter against 
the computer screen, view the 
image through the camera and click 
away. When using a 35mm SLR 
camera, the camera's built-in 
metering system is used to find the 
exposure. Screenshooter comes with 
a lifetime warranty (the camera has 
a one year warranty). 

Price: $169.00 

Contact: NPC Photo Division 
1238 Chestnut Street 
Newton, MA 02164 
617/969-4522 



Name: Language Development 

Software 

System: Apple II/IIe (Atari 

coming soon) 
Hardware: One disk drive 

Description: Currently available 
languages in this product line 
include Spanish, French, German, 
Italian, Biblical Hebrew, Modern 
Hebrew and Arabic. In the near 
future, Latin, Russian, Polish, 
Swedish, and Classical Greek will 
also be available. All programs teach 
1000 of the most common words in 
the target language. When words 
have more than one meaning, the 
program allows for these other 
meanings, along with English 
translation. A "Teach Yourself 
Book" is included in the package for 
additional information. 

Each language program is menu- 
driven with sequential review, 
random review and quiz options. 
The software gives instant feedback, 
tests, and percentage of correctness 
through interactive learning. 

Price: $56.95 

Contact: Soflight Software 

2223 Encinal Station 
Sunnyvale, CA 94087 
408/735-0871 



Name: 
System: 
Memory: 
Language: 



Bug Off! 

Apple II or He 

64K 

Pascal 1.1 or 1.2 



Description: A powerful tool that 
saves time in testing and debugging 
Apple II Pascal programs. The easily 
installed package runs at near- 
execution speed and is totally 
interactive. The command screen gives 
you complete control and lets you 
build and use your own macros. Stored 
debugging commands let you start 
where you left off and you can insert 
breakpoints wherever you want them. 
This package comes with a 
guarantee of total refund if you are not 
satisfied and return it within 30 days of 
shipment. 

Price: $49.96 

Contact: First Byte 

2845 Temple Avenue 
LongBeach, CA 90806 
213/595-7006 
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Name: Fit and Trim 

System: Apple II/IIe 
Memory. 64K RAM 
Hardware: 1-2 disk drives, printer 
optional 

Description: This educational and 
counseling program for weight 
control features two units. The first 
Educational unit provides general 
information on eating and activity 
changes needed for weight loss, 
suggesting goals for aerobic, muscle 
building and other activities. The 
Counseling unit has Weight Review 
(projections, current weight and 
change progress displays] , Eating 
Review (analysis of food you eat, 
showing calories and problem foods 
with recommended changes), and 
Exercise Review (analysis of 
activities with weekly exercise 
suggestions). 

Five week histories can be 
summarized and recommendations 
for weight change can be printed. 
Capacity is 80 individuals per 
diskette. The program can be copied 
and is modifiable. 

Price: $39.95 

Contact: Andent, Inc 

1000 North Avenue 
Waukegan, IL 60085 
312/223-5077 



Name: 
Hardware: 



Digital TLC-1 

Any RS232 devices 



Description: This is a three port 
active switch that lets any two 
RS232 devices share a third and also 
communicate with each other. Any 
transmission format at any rate up 
to 19,200 baud can be 
accommodated and all connections 
are made via a six button control 
panel with out switching transients. 
Proper connection between the 
transmitted and received data pins is 
fully resolved with the TLC-1 for 
any combination of Data 
Communication Equipment and 
Data Terminal Equipment. 
Permitting 64 possible connection 
combinations, all data paths are 
monitored by six LEDs. 

Price: $245 

Contact: Digital Laboratories, Inc. 

600 Pleasant St. 

Watertown, MA 02172 

617/924-1680 



Name: 
System: 



SpellPack 

Commodore-64 



Description: This powerful program 
teaches your C-64 to spell and checks 
an entire document in 2-4 minutes. It 
contains a dictionary of over 20,000 of 
the most commonly used English 
words, and allows you to expand this 
by 5,000 specialized terms. 

Each word is compared to the 
dictionary and those not found are 
highlighted in context, right on the 
screen. If the word is misspelled, it can 
be edited and instantly added to the 
dictionary. If it is correct but not listed, 
it can also be added immediately. It 
accelerates the page rate of checking so 
that a one page document may take two 
minutes to check, but a five pager may 
only take three minutes. Additions and 
corrections are made with single key 
command. SpellPack works with most 
major word processing programs. 

Price: $ 

Contact: Batteries Included 

186 Queen Street West 

Toronto, ON m5v lzl 

Canada 

416/596-1405 



Name: 
System: 



4 in 1 

Apple 



Description: An enhanced database 
management system that simplifies 
record-keeping at home or business 
by handling four separate functions: 
word processing, list and label 
making, calculations and data 
management. 

Major data processing operations 
are combined in a single program so 
there is no need to change disks mid- 
project. For example, 4 in 1 can 
perform calculations on defined 
fields, then merge those fields plus 
the results into forms or letters 
created with the word processor. 
Current tab stops and margin 
settings are indicated onscreen, as 
are menu options, prompt messages 
and system operating messages. 

Price: $129.95 

Contact: Softsmith Corp. 

1431 Doolittle Drive 
San Leandro, CA 94577 
415/487-5900 




Name: Intec 300 Modem 

System: Apple n/HPlus/IIe, 

TRS80 Model 3/4, IBM 
PC 

Description: A new auto dial/auto 
answer modem featuring software and 
essential phone-computer interface 
connections to function with several 
computers. Also provided is easy to 
follow, detailed documentation. 

Features include data capture direct 
to disk file as well as memory buffer, 
255 number auto-dialing telephone 
directory with auto redial of last phone 
number, non-ASCII file transfer, 
optional add/delete of linefeeds, 
transmission of true break signal, and 
many more. 

Price: $189.00 

Contact: Intec Corp. 

West Bloomfield, MI 
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that of structured 
programming skills 
integral to the book 
sample programs to 
BBC microcomputer 
BASIC. At the end of 
the back of the book 



programming. The marriage of 
and knowledge of the machine are 
as a whole. There are examples and 
aid the reader in learning both the 

and structured programming using 
each chapter are problems, happily at 
answers are also provided. 



Title: 


The RS-232 Solution 


Author: 


Joe Campbell 


Price: 


$16.95 


Publishe 


r: Sybex Computer Books 



The problem of interfacing your computer with any RS- 
232-C peripheral is covered in this book. Using tools that 
total less than $15.00, the reader is instructed how to 
measure logic levels and conduct other tests. The results 
of these tests are then taken to derive a specification for 
a cable, thus making the correct connections. There are 
ample diagrams and illustrations explaining the basics and 
beyond, of serial interfacing. The author's 'fool-proof 
method is illustrated with real case studies. Case studies 
include SB80/ADDS, N'/OKI, KayPro/Epson, Osb/TnT ; 
and IBM/NEC. In addition to printers, the interfacing of 
modems, terminals, and plotters is also explained. 



Title: The Elements of Friendly Software Design 

Author: Paul Heckel 

Price: $8.95 

Publisher: Warner Books 

Taking the approach that software is a communication 
craft, the author draws upon a variety of innovators in 
this area. Citing such greats as Walt Disney, George 
Orwell and Leonardo Da Vinci, the idea of visuality and 
clear communication in software is emphasized. All of the 
elements of friendly software design are covered from the 
perspective of both the user and designer. Attention is 
given to what the user expects, perceives, feels and thinks; 
all lending to a better understanding and foundation from 
which to design software. Prototypes and innovations are 
examined. Points are supported with a variety of pictures, 
illustrations, etc. Thirty principles of software design are 
given in addition to seven traps that catch experienced 
designers. 

Title: The BBC Microcomputer for Beginners 

Authors: Seamus Dunn & Valerie Morgan 

Price: $13.95 

Publisher: Prentice/Hall International 

This book covers the in's and out's of the BBC 
Microcomputer, more popularly known as the Acorn; both 
models, A and B, are covered. In addition to noting the 
various characteristics and options available on the BBC 
microcomputer, programming in BASIC is also covered. In 
this vain, the book guides the reader in a learning by 
doing process. Carefully sequenced programs take the user 
through a variety of programming 'musts', including: 
conditionals, loops, file management, functions, strings, 
formatting, graphics, color, and sound. The approach is 



Title: Microprogrammers Market 1984 

Author: Marshall Hamilton 

Price: $13.50 

Publisher: Tab Books 

Basically a sourcebook for programmers looking to sell 
their program ideas, this listing covers hundreds of 
companies. The information provided on each publisher 
includes: Company name, address, telephone number, 
president, submission contact, microcomputer systems 
covered, age of the company, company's publishing track 
record, what they are looking for, payment methods, how 
and when submissions should be handled, response time, 
current program sources, what types of programs are now 
being sold and how they are marketed. In addition the 
author provides a number of valuable tips on writing, 
submitting and selling. Listings are broken down into 
Business/Industry, Educational/Tutorial, Games, Home 
Use, and Utilities. 

Title: How to Make Love to A Computer 

Author: Dr. Maurice K. Byte 

Price: $3.95 

Publisher: Pocket Books 

For those who are really into their computer this book 
is a must. Learn the heretofore unspoken secrets of how to 
make love to your computer. Every aspect is touched upon 
in this Kama Sutra of computer love making. From the 
first meeting to that special night together, all of the 
in's and out's of computer romance are examined. Sexual 
fears, tips from pros, computerotica, and the joy of 
programming are a few of the many areas this book covers. 
Complete with photographs, this is not a book for 
children. 

Title: The Illustrated dBase II Book 

Author: Russell A. Stultz 

Price: $16.95 

Publisher: Spectrum Books 

A reference/tutorial for the popular dBase II software 
program by Ashton-Tate. The author uses modules to 
teach the reader how to use dBase II. With the aid of 
examples and illustrations the beginning programmer is 
guided through the world of database management. 
Descriptions of dBase II files, how they are stored, 
displayed, printed and edited are included. The 
experienced programmer will find that this can be used as 
a handy reference; educators will also find the concise text 
helpful. The modules are alphabetically organized, with a 
good index offering further reference support. All the 
reader needs is dBase II, and 8- or 16-bit microcomputer 
with at least 64K RAM, a disk drive, and a printer. 
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MICRO Program Listing Conventions 



Commodore 

LISTING 
Commands 

(CLEAR) 

(HOME} 

(INSERT) 

(DOWN} 

(UP} 

(RIGHT} 

(LEFT) 

Colors 



C64 KEYBOARD 



LI A CLR 
a HOME 
!1 A INST 
$ CRSR DOWN 
3 A CRSR UP 
M CRSR RIGHT 
II A CRSR LEFT 



(BLACK} 


■ 


CTRL 


1 


BLK 


(WHITE) 


A 


CTRL 


2 


WHT 


(RED) 


14 


CTRL 


3 


RED 


(CYN) 


tat 


CTRL 


4 


CYN 


(PURPLE) 


1 


CTRL 


5 


PUR 


(GREEN) 


a 


CTRL 


6 


GRN 


(BLUE) 


rm 


CTRL 


7 


BLU 


(YELLOW) 


fTJ 


CTRL 


8 


YEL 


(RVS) 


3 


CTRL 


9 


RVS ON 


(RVSOFFJ 


■ 


CTRL 





RVS OFF 


(ORANGE) 


:i 


= 1 






(BROWN) 


R 


» 2 






(GREY 1} 


3 


= 3 






(GREY 1) 


.1] 


= 4 






(GREY 2) 


53 


= 5 






(LT GREEN) 


11 


= 6 






(LT BLUE) 


3 


= 7 






(GREY 3} 


■ ■ 

■ 1 


- 8 






Funct i oris 










(FD 


■ 


f 1 






(F2) 


SI 


* f2 






(F3> 


■ 


f3 






(F4) 


fti 


A f4 






(F5I 


II 


f5 






(F6) 


31 


" ib 






(F7) 


1! 


f 7 






(F8) 


■ 


- f8 







Special Characters 

(PI) ir A Pi Char 
(POUND) £ Pound Sign 
(UP ARROW) f Up Arrow 
(BACK ARROWS Back Arrow 
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Atari 






Conventions used in ATARI List 


inqs. 


Normal Alphanumeric appear as 


UPPER CASE: 


SAMPLE 






Reversed Alphanuaeric appear as lower case: 


yES (y i 


s reversed) 




Special Control Characters in 


quotes appear as: 


(coHand) 


as follows: 




Listing 


Comand 


ATARI Keys 


{UP) 


Cursor Up 


♦ ESC/CTRL - 


COOHM} 


Cursor Down 


* ESC/CTRL = 


(LEFT} 


Cursor Left 


*■ ESC/ CTRL + 


{RIGHT} 


Cursor Right 


■* ESC/CTRL * 


(CLEAR} 


Clear Screen 


•« ESC/CLEAR 


{BACK} 


Back Space 


A ESC/BACK S 


(TAB! 


Cursor to Tab 


► ESC/TAB 


{DELETE LIME) 


Delete Line 


O ESC/SHIFT DELETE 


(INSERT LINE) 


Insert Line 


□ ESC/SHIFT INSERT 


(CLEAR TAB) 


Clear Tab Stop 


B ESC/CTRL TAB 


(SET TAB} 


Set Tab Stop 


B ESC/SHIFT TAB 


(BEEP) 


Beep Speaker 


□ ESC/ CTRL 2 


{DELETE} 


Delete Char. 


CI ESC/CTRL BACK S 


{INSERT} 


Insert Char. 


U ESC/CTRL INSERT 


(CTRL A) 


Graphic Char. 


h CTRL A 




where A is any 


Graphic Letter Key 



Non-Keyboard Commands 



<DIS-> 
<ENB"> 

(LOWER 

(UPPER 

("RETURN) 

(DEL.) 

(SPACE) 



CASE) 
CASE) 



CHR*(8) 
CHR* f =? i 
CHR*tl4) 
CHR* (142) 
CHR* (142? 
CHR*<20) 
CHR*U60> 



Notes! 



1. 

2. 

3, 

4. 



A represents SHIFT KEY 

■ represents Commodore Key in 

lower left corner of keyboard 

CTRL represents CTRL Key 

Graphics characters represented 

in Listing by keystrokes required 

to generate the character 

A number directly after a (S/MBOLj 

indicates multiples of the SYMBOL! 

(D0WN6) would mean DOWN 6 times 
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More Fun 
Than The 

French Foreign Legion 

Join the elite corps of authors— Join MICRO! 

We are looking for a few good writers who have 
what it takes: 

• a technical understanding of computers 

• innovative techniques and programs 

• good writing skills 

• a desire to participate in an exciting and 
growing field 

• the ability to take old ideas beyond 
themselves 

• the willingness to contribute and make a 
difference. 

Don't wait-send for your Writer's Guide today. 

Send a S.A.S.E. to: 

Mike Rowe 

MICRO INK 

P.O. Box 6502 

Chelmsford, MA 01824 



V- 



SHE 



SHE 



SEE 



]BE 



3BE 



SHE 



SHE 



3E1E 



3BE 



Next Month In MICRO 



Features 

The UCSD P-System — This is a more powerful 
operating system than MS-DOS and the 8088, and, 
on a 68000 machine, a very fast one, too. Reviews 
of six 68000 machines are included. 

Constructing 3-D Mazes — The program actually 
gives you rat's-eye views of the maze 
corridors — and all in 3 1/2K of RAM. 

Graphics Print for C64 — The third part of this 
series adds a program that loads graphic files 
from a number of popular graphic programs, 
displays them and dumps them to a printer. 

Atari/Epson Character Printing — The Atari puts 
a tremendous variety of graphic characters on 
3 screen; this program allows even custom 
characters to be put on paper. 



Hilister — The second of a two-part series, this 
covers moving around within a program listing. 

Alter T & S — Dump, in hex, any sector on a 
diskette with Commodore format and then modify £ 
any byte in that sector without the loss of other 
data. 

Plus More... 



Departments 

Reviews in Brief 
Spotlight 

Software/Hardware Catalogs 
New Publications 
Interface Clinic 
Lyte Bytes 



HE 



=]EE 



DEE 



SHE 



DEE 



IBS 
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This famous book now contains the most comprehensive description of firmware 
and hardware ever published for the whole Apple II family. A new section with 
guide, atlas and gazeteer now provides Apple lie specific information. 



• Gives names and locations of various Monitor, 
DOS, Integer BASIC and Applesoft routines and 
tells what they're used for 

• Lists Peeks, Pokes and Calls in over 2000 
memory locations 



• Allows easy movement between BASIC and 
Machine Language 

• Explains how to use the information for easier, 
better, faster software writing 



This expanded edition is available at the new low price of only $1 9.95 

For the 35,000 people who already own previous editions, 
the lie Appendix is available separately for just $5.00. 



Please send me; 

What's Where in the Apple @ $19.95 ea. 



(Plus $2.00 per copy shipping/handling) 



Apple //e Appendix @ $5.00 ea. 
(Includes shipping charges) 



Mass residents add 5% sales tax $ 
Total Enclosed $ 

For faster service 
Phone 617/256-3649 



Name 



Address 



City 
Signature . 

Acct # _ 



State 



Zip 



D Check 



□ VISA D MasterCard 



Expires. 



MICRO, P.O. Box 6502, Chelmsford, MA 01824 



L-_--~-_- ---_-_. 




Parental guidance suggested. 




Take an active role in your 
child's development. 

Parenting. The most important and 
rewarding endeavor you'll ever under- 
take. Ga/.c into your child's eyes. 
They're capturing all the wonders of 
the world around him. and looking to 
you for guidance. 

Now you can gain a unique insight 
into your child's world with Childpace ,v 
— an amazing new Child Development 
Program for ages 3 to 60 months. 

Share the precious firsts. 

When will your baby dazzle you 
with his first spontaneous smile? Stand 
alone? Take that first wobbly step? 

The first five years are filled with 
continual growth and change. And 
questions. So even if your child's a 
toddler, you're still looking for answers. 
When will he start dressing himself? 
When should those random scribbles 
turn into distinctive shapes? 

Compare apples-to-apples. 

Childpace lets you evaluate your 
child's dexterity. language and social 



skills in the privacy of your own home. 
You enter information into Childpace, 
then he attempts tasks that are appropriate 
for his age group. 

Childpace assesses his skill level 
based on extensive research, not the 
biased opinions of friends or relatives. 
Childpace uses your child's chronolog- 
ical (actual) age. 

Grow with your child. 

As your child grows, (he (asks change 
to match his newly acquired skills. So 
Childpace is just as valuable for a 48- 
month old child as for an infant. 
Childpace can even evaluate up to 1 6 dif- 
ferent children, and keep permanent 
records on each of them. Snapshots 
record your child's physical growth, but 
Childpace documents his or her acmal 
development. 

Track your child's progress, and help 
him develop specific skills. Childpace 
also contains warning signals to alert you 
to potential developmental problems at 
an early age. before they hold your child 
back. An ounce of prevention pays off. 



Childpace. A fascinating glimpse into 
the world of child development. And 
tnore importantly, into your child's world. 

Look for Childpace at your local comr 
puter hardware or software store . If unable 
to find it. send S39.95 to Computerose. 
Inc. Please allow two weeks for process- 
ing. 30 day money hack guarantee. 

<t-JQ QS sug ?, C5tcd 

J) -J J . 7*J retail price 

Childpace is 
available for the 
Commodore 64 f 
IBM PC? IBM 
PC Jr.® Atari 
800? Apple II? 
and Radio Shack 
Color Computer?* 

*EjchK a registered iredemaric 
of the respective manufacturer 




vnputeiQse 

We're programming for life 



TM 



20!2 East Randal Mill Road Suite 223 
Arlington. TX 76011 (817) 277-9153 

O t9&* CompuMfOsC, Inc. 



